GETLOG — Get login nameCALL GETLOG(C)
| C | Shall be of type CHARACTER and of default kind.
|
geteuid and getpwuid are not available, and
the getlogin function is not implemented either, this will
return a blank string.)
PROGRAM TEST_GETLOG
CHARACTER(32) :: login
CALL GETLOG(login)
WRITE(*,*) login
END PROGRAM