RosettaCodeData/Task/Inverted-syntax/Fortran/inverted-syntax.f

2 lines
79 B
Fortran

INQUIRE(FILE = FILENAME(1:L), EXIST = MAYBE, ERR = 666, IOSTAT = RESULT)