.le. -> <=; .ge. -> >=

Author: zoziha

src/fpm_filesystem.F90

@@ -104,7 +104,7 @@ function basename(path,suffix) result (base)
     endif
     if(.not.with_suffix)then
         call split(base,file_parts,delimiters='.')
-        if(size(file_parts).ge.2)then
+        if(size(file_parts)>=2)then
            base = trim(file_parts(size(file_parts)-1))
         endif
     endif

test/fpm_test/test_versioning.f90

@@ -213,7 +213,7 @@ subroutine test_valid_compare(error)
            return
         end if
 
-        if (.not. v1 .ge. v2) then
+        if (.not. v1 >= v2) then
            call test_failed(error, "Version comparison failed (ge)")
            return
         end if
@@ -223,7 +223,7 @@ subroutine test_valid_compare(error)
            return
         end if
 
-        if (.not. v2 .le. v1) then
+        if (.not. v2 <= v1) then
            call test_failed(error, "Version comparison failed (le)")
            return
         end if

test/help_test/help_test.f90

@@ -190,7 +190,7 @@ subroutine slurp(filename,text)
    local_filename=filename
    if(ios==0)then  ! if file was successfully opened
       inquire(unit=igetunit, size=nchars)
-      if(nchars.le.0)then
+      if(nchars<=0)then
          call stderr_local( '*slurp* empty file '//trim(local_filename) )
          return
       endif