Check that file exists: Difference between revisions

Content added Content deleted

Inline

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