Next: GETARG, Previous: FTELL, Up: Intrinsic Procedures
GERROR
strerror(3)
CALL GERROR(RESULT)
CHARACTER(*)
PROGRAM test_gerror CHARACTER(len=100) :: msg CALL gerror(msg) WRITE(*,*) msg END PROGRAM