Skip to content

Instantly share code, notes, and snippets.

@prefork
Created February 23, 2010 01:57
Show Gist options
  • Save prefork/311758 to your computer and use it in GitHub Desktop.
Save prefork/311758 to your computer and use it in GitHub Desktop.
IOSTAT Property
INTEGER :: readErr, myVar
! some code
READ (*,*,IOSTAT=readErr) myVar
IF (readErr /= 0) THEN
! They are stupid, make them do it again
ELSE
! User did their job
END IF
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment