GERROR (The GNU Fortran Compiler) (original) (raw)

PROGRAM test_gerror CHARACTER(len=100) :: msg CALL gerror(msg) WRITE(,) msg END PROGRAM