RosettaCodeData/Task/Secure-temporary-file/Fortran/secure-temporary-file.f

2 lines
63 B
Forth

OPEN (F,STATUS = 'SCRATCH') !Temporary disc storage.