.eq. -> ==

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).eq.0 .and. size(executables).gt.1
+    toomany= size(settings%name)==0 .and. size(executables).gt.1
     if ( any(.not.found) &
     & .or. &
     & ( (toomany .and. .not.test) .or.  (toomany .and. settings%runner .ne. '') ) &
@@ -413,7 +413,7 @@ subroutine cmd_run(settings,test)
 
         call compact_list_all()
 
-        if(line.eq.'.' .or. line.eq.' ')then ! do not report these special strings
+        if(line=='.' .or. line==' ')then ! do not report these special strings
            call fpm_stop(0,'')
         else
            call fpm_stop(1,'')

src/fpm_command_line.f90

@@ -271,14 +271,14 @@ subroutine get_command_line_settings(cmd_settings)
             ! convert special string '..' to equivalent (shorter) '*'
             ! to allow for a string that does not require shift-key and quoting
             do i=1,size(names)
-               if(names(i).eq.'..')names(i)='*'
+               if(names(i)=='..')names(i)='*'
             enddo
 
             c_compiler = sget('c-compiler')
             archiver = sget('archiver')
             allocate(fpm_run_settings :: cmd_settings)
             val_runner=sget('runner')
-            if(specified('runner') .and. val_runner.eq.'')val_runner='echo'
+            if(specified('runner') .and. val_runner=='')val_runner='echo'
             cmd_settings=fpm_run_settings(&
             & args=remaining,&
             & profile=val_profile,&
@@ -348,7 +348,7 @@ subroutine get_command_line_settings(cmd_settings)
                 call fpm_stop(2,'only one directory name allowed')
             end select
             !*! canon_path is not converting ".", etc.
-            if(name.eq.'.')then
+            if(name=='.')then
                call get_current_directory(name, error)
                if (allocated(error)) then
                   write(stderr, '("[Error]", 1x, a)') error%message
@@ -402,12 +402,12 @@ 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(unnamed(1).eq.'help')then
+                if(unnamed(1)=='help')then
                    unnamed=['   ', 'fpm']
                 else
                    unnamed=manual
                 endif
-            elseif(unnamed(2).eq.'manual')then
+            elseif(unnamed(2)=='manual')then
                 unnamed=manual
             endif
             widest=256
@@ -505,14 +505,14 @@ subroutine get_command_line_settings(cmd_settings)
             ! convert special string '..' to equivalent (shorter) '*'
             ! to allow for a string that does not require shift-key and quoting
             do i=1,size(names)
-               if(names(i).eq.'..')names(i)='*'
+               if(names(i)=='..')names(i)='*'
             enddo
 
             c_compiler = sget('c-compiler')
             archiver = sget('archiver')
             allocate(fpm_test_settings :: cmd_settings)
             val_runner=sget('runner')
-            if(specified('runner') .and. val_runner.eq.'')val_runner='echo'
+            if(specified('runner') .and. val_runner=='')val_runner='echo'
             cmd_settings=fpm_test_settings(&
             & args=remaining, &
             & profile=val_profile, &
@@ -570,7 +570,7 @@ subroutine get_command_line_settings(cmd_settings)
                 help_text=help_usage
                 if(lget('list'))then
                    help_text=help_list_dash
-                elseif(len_trim(cmdarg).eq.0)then
+                elseif(len_trim(cmdarg)==0)then
                     write(stdout,'(*(a))')'Fortran Package Manager:'
                     write(stdout,'(*(a))')' '
                     call printhelp(help_list_nodash)
@@ -595,7 +595,7 @@ subroutine check_build_vals()
         character(len=:), allocatable :: flags
 
         val_compiler=sget('compiler')
-        if(val_compiler.eq.'') then
+        if(val_compiler=='') then
             val_compiler='gfortran'
         endif
 

src/fpm_environment.f90

@@ -190,7 +190,7 @@ function get_env(NAME,DEFAULT) result(VALUE)
         else
            VALUE=''
         endif
-        if(VALUE.eq.''.and.present(DEFAULT))VALUE=DEFAULT
+        if(VALUE==''.and.present(DEFAULT))VALUE=DEFAULT
      end function get_env
 
     function get_command_arguments_quoted() result(args)
@@ -200,7 +200,7 @@ function get_command_arguments_quoted() result(args)
     integer                      :: ilength, istatus, i
     ilength=0
     args=''
-        quote=merge('"',"'",separator().eq.'\')
+        quote=merge('"',"'",separator()=='\')
         do i=2,command_argument_count() ! look at all arguments after subcommand
             call get_command_argument(number=i,length=ilength,status=istatus)
             if(istatus /= 0) then

src/fpm_filesystem.F90

@@ -419,7 +419,7 @@ recursive subroutine list_files(dir, files, recurse)
     type(string_t) :: files_tmp(N_MAX)
     integer(kind=c_int) :: r
 
-    if (c_is_dir(dir(1:len_trim(dir))//c_null_char) .eq. 0) then
+    if (c_is_dir(dir(1:len_trim(dir))//c_null_char) == 0) then
         allocate (files(0))
         return
     end if
@@ -440,7 +440,7 @@ recursive subroutine list_files(dir, files, recurse)
         else
             string_fortran = f_string(c_get_d_name(dir_entry_c))
 
-            if ((string_fortran .eq. '.' .or. string_fortran .eq. '..')) then
+            if ((string_fortran == '.' .or. string_fortran == '..')) then
                 cycle
             end if
 
@@ -827,7 +827,7 @@ function which(command) result(pathname)
 character(len=:),allocatable    :: pathname, checkon, paths(:), exts(:)
 integer                         :: i, j
    pathname=''
-   call split(get_env('PATH'),paths,delimiters=merge(';',':',separator().eq.'\'))
+   call split(get_env('PATH'),paths,delimiters=merge(';',':',separator()=='\'))
    SEARCH: do i=1,size(paths)
       checkon=trim(join_path(trim(paths(i)),command))
       select case(separator())

src/fpm_strings.f90

@@ -380,7 +380,7 @@ subroutine split(input_line,array,delimiters,order,nulls)
         icol=1                                                      ! initialize pointer into input line
         INFINITE: do i30=1,ilen,1                                   ! store into each array element
             ibegin(i30)=icol                                         ! assume start new token on the character
-            if(index(dlim(1:idlim),input_line(icol:icol)).eq.0)then  ! if current character is not a delimiter
+            if(index(dlim(1:idlim),input_line(icol:icol))==0)then  ! if current character is not a delimiter
             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))
@@ -574,7 +574,7 @@ pure function join(str,sep,trm,left,right,start,end) result (string)
    if(present(left))then  ; left_local=left   ; else ; left_local=''    ; endif
    if(present(right))then ; right_local=right ; else ; right_local=''   ; endif
    string=''
-   if(size(str).eq.0)then
+   if(size(str)==0)then
       string=string//left_local//right_local
    else
       do i = 1,size(str)-1
@@ -851,21 +851,21 @@ function glob(tame,wild)
    do                                            ! Walk the text strings one character at a time.
       if(wildtext(wi:wi) == '*')then             ! How do you match a unique text string?
          do i=wi,wlen                            ! Easy: unique up on it!
-            if(wildtext(wi:wi).eq.'*')then
+            if(wildtext(wi:wi)=='*')then
                wi=wi+1
             else
                exit
             endif
          enddo
-         if(wildtext(wi:wi).eq.NULL) then        ! "x" matches "*"
+         if(wildtext(wi:wi)==NULL) then        ! "x" matches "*"
             glob=.true.
             return
          endif
          if(wildtext(wi:wi) .ne. '?') then
             ! Fast-forward to next possible match.
             do while (tametext(ti:ti) .ne. wildtext(wi:wi))
                ti=ti+1
-               if (tametext(ti:ti).eq.NULL)then
+               if (tametext(ti:ti)==NULL)then
                   glob=.false.
                   return                         ! "x" doesn't match "*y*"
                endif
@@ -900,14 +900,14 @@ function glob(tame,wild)
       endif
       ti=ti+1
       wi=wi+1
-      if (tametext(ti:ti).eq.NULL) then          ! How do you match a tame text string?
+      if (tametext(ti:ti)==NULL) then          ! How do you match a tame text string?
          if(wildtext(wi:wi).ne.NULL)then
             do while (wildtext(wi:wi) == '*')    ! The tame way: unique up on it!
                wi=wi+1                           ! "x" matches "x*"
-               if(wildtext(wi:wi).eq.NULL)exit
+               if(wildtext(wi:wi)==NULL)exit
             enddo
          endif
-         if (wildtext(wi:wi).eq.NULL)then
+         if (wildtext(wi:wi)==NULL)then
             glob=.true.
             return                               ! "x" matches "x"
          endif

test/cli_test/cli_test.f90

@@ -78,7 +78,7 @@ program main
 readme(3)=' /'
 tally=[logical ::]     ! an array that tabulates the command test results as pass or fail.
 
-if(command_argument_count().eq.0)then  ! assume if called with no arguments to do the tests. This means you cannot
+if(command_argument_count()==0)then  ! assume if called with no arguments to do the tests. This means you cannot
                                        ! have a test of no parameters. Could improve on this.
                                        ! if called with parameters assume this is a test and call the routine to
                                        ! parse the resulting values after calling the CLI command line parser
@@ -91,7 +91,7 @@ program main
    write(*,*)'command=',command
 
    do i=1,size(tests)
-      if(tests(i).eq.' ')then
+      if(tests(i)==' ')then
          open(file='_test_cli',newunit=lun,delim='quote')
          close(unit=lun,status='delete')
          exit
@@ -113,8 +113,8 @@ program main
       write(*,'(*(g0))')'START:  TEST ',i,' CMD=',trim(cmd)
       ! call this program which will crack command line and write results to scratch file _test_cli
       call execute_command_line(command//' '//trim(cmd),cmdstat=act_cstat,exitstat=act_estat)
-      if(cstat.eq.act_cstat.and.estat.eq.act_estat)then
-          if(estat.eq.0)then
+      if(cstat==act_cstat.and.estat==act_estat)then
+          if(estat==0)then
              open(file='_test_cli',newunit=lun,delim='quote')
              act_name=[(repeat(' ',len(act_name)),i=1,max_names)]
              act_profile=''
@@ -130,12 +130,12 @@ program main
              close(unit=lun)
              ! compare results to expected values
              subtally=[logical ::]
-             call test_test('NAME',all(act_name.eq.name))
-             call test_test('PROFILE',act_profile.eq.profile)
+             call test_test('NAME',all(act_name==name))
+             call test_test('PROFILE',act_profile==profile)
              call test_test('WITH_EXPECTED',act_w_e.eqv.w_e)
              call test_test('WITH_TESTED',act_w_t.eqv.w_t)
              call test_test('WITH_TEST',act_w_t.eqv.w_t)
-             call test_test('ARGS',act_args.eq.args)
+             call test_test('ARGS',act_args==args)
              if(all(subtally))then
                 write(*,'(*(g0))')'PASSED: TEST ',i,' STATUS: expected ',cstat,' ',estat,' actual ',act_cstat,' ',act_estat,&
                 & ' for [',trim(cmd),']'

test/fpm_test/test_versioning.f90

@@ -74,12 +74,12 @@ subroutine test_valid_equals(error)
         call new_version(v1, [0, 9, 0])
         call new_version(v2, [0, 9])
 
-        if (.not. v1.eq.v2) then
+        if (.not. v1==v2) then
            call test_failed(error, "Version comparison failed")
            return
         end if
 
-        if (.not. v2.eq.v1) then
+        if (.not. v2==v1) then
            call test_failed(error, "Version comparison failed")
            return
         end if

test/help_test/help_test.f90

@@ -77,25 +77,25 @@ program help_test
          message=''
          call execute_command_line(path,exitstat=estat,cmdstat=cstat,cmdmsg=message)
          write(*,'(*(g0))')'<INFO>CMD=',path,' EXITSTAT=',estat,' CMDSTAT=',cstat,' MESSAGE=',trim(message)
-         tally=[tally,all([estat.eq.0,cstat.eq.0])]
+         tally=[tally,all([estat==0,cstat==0])]
          call swallow('fpm_scratch_help.txt',page1)
          if(size(page1).lt.3)then
             write(*,*)'<ERROR>help for '//names(i)//' ridiculiously small'
             tally=[tally,.false.]
             exit
          endif
-         !!write(*,*)findloc(page1,'NAME').eq.1
+         !!write(*,*)findloc(page1,'NAME')==1
          be=count(.not.tally)
-         tally=[tally,count(page1.eq.'NAME').eq.1]
-         tally=[tally,count(page1.eq.'SYNOPSIS').eq.1]
-         tally=[tally,count(page1.eq.'DESCRIPTION').eq.1]
+         tally=[tally,count(page1=='NAME')==1]
+         tally=[tally,count(page1=='SYNOPSIS')==1]
+         tally=[tally,count(page1=='DESCRIPTION')==1]
          af=count(.not.tally)
          if(be.ne.af)then
             write(*,*)'<ERROR>missing expected sections in ',names(i)
             write(*,*)page1(1) ! assuming at least size 1 for debugging mingw
-            write(*,*)count(page1.eq.'NAME')
-            write(*,*)count(page1.eq.'SYNOPSIS')
-            write(*,*)count(page1.eq.'DESCRIPTION')
+            write(*,*)count(page1=='NAME')
+            write(*,*)count(page1=='SYNOPSIS')
+            write(*,*)count(page1=='DESCRIPTION')
             write(*,'(a)')page1
          endif
          write(*,*)'<INFO>have completed ',count(tally),' tests'
@@ -109,15 +109,15 @@ program help_test
       path= prog // cmds(i)
       call execute_command_line(path,exitstat=estat,cmdstat=cstat,cmdmsg=message)
       write(*,'(*(g0))')'<INFO>CMD=',path,' EXITSTAT=',estat,' CMDSTAT=',cstat,' MESSAGE=',trim(message)
-      tally=[tally,all([estat.eq.0,cstat.eq.0])]
+      tally=[tally,all([estat==0,cstat==0])]
    enddo
 
    ! compare book written in fragments with manual
    call swallow('fpm_scratch_help.txt',book1)
    call swallow('fpm_scratch_manual.txt',book2)
    ! get rid of lines from run() which is not on stderr at the moment
-   book1=pack(book1,index(book1,' + build/').eq.0)
-   book2=pack(book1,index(book2,' + build/').eq.0)
+   book1=pack(book1,index(book1,' + build/')==0)
+   book2=pack(book1,index(book2,' + build/')==0)
    write(*,*)'<INFO>book1 ',size(book1), len(book1)
    write(*,*)'<INFO>book2 ',size(book2), len(book2)
    if(size(book1).ne.size(book2))then
@@ -135,7 +135,7 @@ program help_test
 
    ! overall size of manual
    !chars=size(book2)
-   !lines=max(count(char(10).eq.book2),count(char(13).eq.book2))
+   !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
@@ -164,7 +164,7 @@ subroutine wipe(filename)
 integer :: lun
 character(len=k1) :: message
 open(file=filename,newunit=lun,iostat=ios,iomsg=message)
-if(ios.eq.0)then
+if(ios==0)then
    close(unit=lun,iostat=ios,status='delete',iomsg=message)
    if(ios.ne.0)then
       write(*,*)'<ERROR>'//trim(message)
@@ -188,7 +188,7 @@ subroutine slurp(filename,text)
    open(newunit=igetunit, file=trim(filename), action="read", iomsg=message,&
     &form="unformatted", access="stream",status='old',iostat=ios)
    local_filename=filename
-   if(ios.eq.0)then  ! if file was successfully opened
+   if(ios==0)then  ! if file was successfully opened
       inquire(unit=igetunit, size=nchars)
       if(nchars.le.0)then
          call stderr_local( '*slurp* empty file '//trim(local_filename) )
@@ -252,7 +252,7 @@ function page(array)  result (table)
    length=0
    sz=size(array)
    do i=1,sz
-      if(array(i).eq.nl)then
+      if(array(i)==nl)then
          linelength=max(linelength,length)
          lines=lines+1
          length=0
@@ -273,10 +273,10 @@ function page(array)  result (table)
    linecount=1
    position=1
    do i=1,sz
-      if(array(i).eq.nl)then
+      if(array(i)==nl)then
          linecount=linecount+1
          position=1
-      elseif(array(i).eq.cr)then
+      elseif(array(i)==cr)then
       elseif(linelength.ne.0)then
          if(position.gt.len(table))then
             write(*,*)'<ERROR> adding character past edge of text',table(linecount),array(i)