The subroutine or function is called by:
call gerror( string ) |
|||
---|---|---|---|
string |
character*n |
Output |
Message for the last detected system error |
Example 2: gerror() as a subroutine:
character string*30 ... call gerror ( string ) write(*,*) string
Example 3: gerror() as a function; string not used:
character gerror*30, z*30 ... z = gerror( ) write(*,*) z