RosettaCodeData/Task/Delete-a-file/Fortran/delete-a-file-1.f
2023-07-01 13:44:08 -04:00

4 lines
203 B
Fortran

OPEN (UNIT=5, FILE="input.txt", STATUS="OLD") ! Current directory
CLOSE (UNIT=5, STATUS="DELETE")
OPEN (UNIT=5, FILE="/input.txt", STATUS="OLD") ! Root directory
CLOSE (UNIT=5, STATUS="DELETE")