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