Next: GETPID, Previous: GETGID, Up: Intrinsic Procedures
GETLOG — Get login nameCALL GETLOG(LOGIN)
| LOGIN | Shall be of type CHARACTER(*).
|
getlogin(3) function is not implemented, this will
return a blank string.)
PROGRAM TEST_GETLOG
CHARACTER(32) :: login
CALL GETLOG(login)
WRITE(*,*) login
END PROGRAM