.gt. -> >

Author: zoziha

src/fpm.f90

@@ -390,7 +390,7 @@ subroutine cmd_run(settings,test)
 
     ! Check all names are valid
     ! or no name and found more than one file
-    toomany= size(settings%name)==0 .and. size(executables).gt.1
+    toomany= size(settings%name)==0 .and. size(executables)>1
     if ( any(.not.found) &
     & .or. &
     & ( (toomany .and. .not.test) .or.  (toomany .and. settings%runner /= '') ) &

src/fpm/error.f90

@@ -167,7 +167,7 @@ subroutine fpm_stop(value,message)
         !> Error message
         character(len=*), intent(in) :: message
         if(message/='')then
-           if(value.gt.0)then
+           if(value>0)then
               write(stderr,'("<ERROR>",a)')trim(message)
            else
               write(stderr,'("<INFO> ",a)')trim(message)

src/fpm_command_line.f90

@@ -251,7 +251,7 @@ subroutine get_command_line_settings(cmd_settings)
 
             call check_build_vals()
 
-            if( size(unnamed) .gt. 1 )then
+            if( size(unnamed) > 1 )then
                 names=unnamed(2:)
             else
                 names=[character(len=len(names)) :: ]
@@ -491,7 +491,7 @@ subroutine get_command_line_settings(cmd_settings)
 
             call check_build_vals()
 
-            if( size(unnamed) .gt. 1 )then
+            if( size(unnamed) > 1 )then
                 names=unnamed(2:)
             else
                 names=[character(len=len(names)) :: ]
@@ -533,7 +533,7 @@ subroutine get_command_line_settings(cmd_settings)
             call set_args(common_args // ' --fetch-only F --clean F', &
                 help_update, version_text)
 
-            if( size(unnamed) .gt. 1 )then
+            if( size(unnamed) > 1 )then
                 names=unnamed(2:)
             else
                 names=[character(len=len(names)) :: ]
@@ -611,7 +611,7 @@ subroutine printhelp(lines)
     integer :: iii,ii
         if(allocated(lines))then
            ii=size(lines)
-           if(ii .gt. 0 .and. len(lines).gt. 0) then
+           if(ii > 0 .and. len(lines)> 0) then
                write(stdout,'(g0)')(trim(lines(iii)), iii=1, ii)
            else
                write(stdout,'(a)')'<WARNING> *printhelp* output requested is empty'

src/fpm_environment.f90

@@ -213,7 +213,7 @@ function get_command_arguments_quoted() result(args)
                 if(istatus /= 0) then
                     write(stderr,'(*(g0,1x))')'<ERROR>*get_command_arguments_stack* error obtaining argument ',i
                     exit
-                elseif(ilength.gt.0)then
+                elseif(ilength>0)then
                     if(index(arg//' ','-')/=1)then
                         args=args//quote//arg//quote//' '
                     elseif(index(arg,' ')/=0)then

src/fpm_filesystem.F90

@@ -97,7 +97,7 @@ function basename(path,suffix) result (base)
     end if
 
     call split(path,file_parts,delimiters='\/')
-    if(size(file_parts).gt.0)then
+    if(size(file_parts)>0)then
        base = trim(file_parts(size(file_parts)))
     else
        base = ''
@@ -446,7 +446,7 @@ recursive subroutine list_files(dir, files, recurse)
 
             i = i + 1
 
-            if (i .gt. N_MAX) then
+            if (i > N_MAX) then
                 files = [files, files_tmp]
                 i = 1
             end if
@@ -462,7 +462,7 @@ recursive subroutine list_files(dir, files, recurse)
         error stop
     end if
 
-    if (i .gt. 0) then
+    if (i > 0) then
         files = [files, files_tmp(1:i)]
     end if
 

src/fpm_strings.f90

@@ -384,7 +384,7 @@ subroutine split(input_line,array,delimiters,order,nulls)
             iterm(i30)=ilen                                       ! initially assume no more tokens
             do i10=1,idlim                                        ! search for next delimiter
                 ifound=index(input_line(ibegin(i30):ilen),dlim(i10:i10))
-                IF(ifound.gt.0)then
+                IF(ifound>0)then
                     iterm(i30)=min(iterm(i30),ifound+ibegin(i30)-2)
                 endif
             enddo
@@ -396,7 +396,7 @@ subroutine split(input_line,array,delimiters,order,nulls)
             endif
             imax=max(imax,iterm(i30)-ibegin(i30)+1)
             icount=i30                                               ! increment count of number of tokens found
-            if(icol.gt.ilen)then                                     ! no text left
+            if(icol>ilen)then                                     ! no text left
             exit INFINITE
             endif
         enddo INFINITE

test/fpm_test/test_versioning.f90

@@ -208,7 +208,7 @@ subroutine test_valid_compare(error)
         call new_version(v1, [1, 0, 8])
         call new_version(v2, [1, 0])
 
-        if (.not. v1 .gt. v2) then
+        if (.not. v1 > v2) then
            call test_failed(error, "Version comparison failed (gt)")
            return
         end if

test/help_test/help_test.f90

@@ -260,7 +260,7 @@ function page(array)  result (table)
          length=length+1
       endif
    enddo
-   if(sz.gt.0)then
+   if(sz>0)then
       if(array(sz)/=nl)then
          lines=lines+1
       endif
@@ -278,9 +278,9 @@ function page(array)  result (table)
          position=1
       elseif(array(i)==cr)then
       elseif(linelength/=0)then
-         if(position.gt.len(table))then
+         if(position>len(table))then
             write(*,*)'<ERROR> adding character past edge of text',table(linecount),array(i)
-         elseif(linecount.gt.size(table))then
+         elseif(linecount>size(table))then
             write(*,*)'<ERROR> adding line past end of text',linecount,size(table)
          else
             table(linecount)(position:position)=array(i)