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
|