KB104894 - FIX: VERIFY Doesn't Check Last Character in String

MORE INFORMATION

The intrinsic function VERIFY compares the characters of one string with another string.

   VERIFY (charstr, charset [,log])

Each character of charstr is compared with the charset. VERIFY returns the position of the first character in charstr that it could not find in charset. If log is true, characters are taken from charstr in reverse.

The sample code fails if compiled with FORTRAN PowerStation, but will pass with FORTRAN 5.1 and 5.0. Versions of FORTRAN before 5.0 do not have the VERIFY function.

Sample Code

C No compiler options required
      i = verify('ba','b')
      if (i.eq.2) then
        print*, 'verify correct:   ',i
      else
        print*, 'verify incorrect: ',i
      end if
      end

FIX: VERIFY Doesn't Check Last Character in String

SYMPTOMS

STATUS

MORE INFORMATION

Sample Code