.lt. -> <

Author: zoziha

src/fpm_command_line.f90

@@ -401,7 +401,7 @@ subroutine get_command_line_settings(cmd_settings)
 
         case('help','manual')
             call set_args(common_args, help_help,version_text)
-            if(size(unnamed).lt.2)then
+            if(size(unnamed)<2)then
                 if(unnamed(1)=='help')then
                    unnamed=['   ', 'fpm']
                 else

src/fpm_strings.f90

@@ -418,7 +418,7 @@ subroutine split(input_line,array,delimiters,order,nulls)
     end select
 
     do i20=1,icount                                                ! fill the array with the tokens that were found
-        if(iterm(i20).lt.ibegin(i20))then
+        if(iterm(i20)<ibegin(i20))then
             select case (trim(adjustl(nlls)))
             case ('ignore','','ignoreend')
             case default

test/fpm_test/test_versioning.f90

@@ -218,7 +218,7 @@ subroutine test_valid_compare(error)
            return
         end if
 
-        if (.not. v2 .lt. v1) then
+        if (.not. v2 < v1) then
            call test_failed(error, "Version comparison failed (lt)")
            return
         end if

test/help_test/help_test.f90

@@ -79,7 +79,7 @@ program help_test
          write(*,'(*(g0))')'<INFO>CMD=',path,' EXITSTAT=',estat,' CMDSTAT=',cstat,' MESSAGE=',trim(message)
          tally=[tally,all([estat==0,cstat==0])]
          call swallow('fpm_scratch_help.txt',page1)
-         if(size(page1).lt.3)then
+         if(size(page1)<3)then
             write(*,*)'<ERROR>help for '//names(i)//' ridiculiously small'
             tally=[tally,.false.]
             exit
@@ -138,7 +138,7 @@ program help_test
    !lines=max(count(char(10)==book2),count(char(13)==book2))
    chars=sum(len_trim(book2)) ! SUM TRIMMED LENGTH
    lines=size(book2)
-   if( (chars.lt.12000) .or. (lines.lt.350) )then
+   if( (chars<12000) .or. (lines<350) )then
       write(*,*)'<ERROR>"debug" manual is suspiciously small, bytes=',chars,' lines=',lines
       tally=[tally,.false.]
    else