IOSTAT_MSG Subroutine
Lahey/Fujitsu Fortran

IOSTAT_MSG Subroutine

Description

The IOSTAT_MSG subroutine retrieves text associated with a runtime error.


Syntax

IOSTAT_MSG (iostat, message)

Arguments

iostat is an INTENT(IN) scalar of type INTEGER. It contains the error status code obtained by execution of any intrinsic statement which returns a status variable.

message is an INTENT(OUT) scalar be of type CHARACTER. It is assigned the text of the runtime error message corresponding to the error code in iostat.

Remarks

A CHARACTER length of 256 is sufficiently large to contain all runtime error messages at this time.

If a status variable from a successful operation is passed to IOSTAT_MSG, a blank string is returned.

Example

real,allocatable :: a(:) integer :: istat character(len=256) :: msg open(10,file="foo.bar",status="OLD",iostat=istat) call iostat_msg(istat,msg) write(*,*) trim(msg) deallocate(a,stat=istat) call iostat_msg(istat,msg) write(*,*) trim(msg) write(*,*) " Bye"