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