GERROR — Get last system error messagestrerror(3) in C.
CALL GERROR(RESULT)
| RESULT | Shall of type CHARACTER and of default
|
PROGRAM test_gerror
CHARACTER(len=100) :: msg
CALL gerror(msg)
WRITE(*,*) msg
END PROGRAM