Check that file exists: Difference between revisions
Content added Content deleted
Line 180:
Acutally, f90,f95 are able to deal with directory staff:
logical:: dir_e;
inquire( file="./docs/.", exist=dir_e );
if( dir_e ) then
write(*,*), "dir exists!";
else
call system('mkdir docs');
end if
=={{header|Haskell}}==
| |||