intel directory fix

Author: perazz

Diff for: src/stdlib_system.F90

@@ -736,7 +736,17 @@ subroutine delete_file(path, err)
     character(len=512) :: msg
     logical :: file_exists
 
+    ! Verify the file is not a directory.     
+    if (is_directory(path)) then 
+        ! If unable to open, assume it's a directory or inaccessible
+        err0 = state_type(STDLIB_FS_ERROR,'Cannot delete',path,'- is a directory')
+        call err0%handle(err)
+        return            
+    end if
+
     ! Check if the path exists
+    ! Because Intel compilers return .false. if path is a directory, this must be tested
+    ! _after_ the directory test
     inquire(file=path, exist=file_exists)
     if (.not. file_exists) then
         ! File does not exist, return non-error status
@@ -745,14 +755,6 @@ subroutine delete_file(path, err)
         return
     endif
 
-    ! Verify the file is not a directory
-    if (is_directory(path)) then 
-        ! If unable to open, assume it's a directory or inaccessible
-        err0 = state_type(STDLIB_FS_ERROR,'Cannot delete',path,'- is a directory')
-        call err0%handle(err)
-        return            
-    end if
-
     ! Close and delete the file
     open(newunit=file_unit, file=path, status='old', iostat=ios, iomsg=msg)
     if (ios /= 0) then