RosettaCodeData/Task/Check-that-file-exists/Fortran/check-that-file-exists-1.f
Ingy döt Net 86c034bb8b new files
2013-04-10 12:38:42 -07:00

4 lines
231 B
Fortran

LOGICAL :: file_exists
INQUIRE(FILE="input.txt", EXIST=file_exists) ! file_exists will be TRUE if the file
! exists and FALSE otherwise
INQUIRE(FILE="/input.txt", EXIST=file_exists)