VERIFY — Scan a string for characters not a given set

VERIFY()

Verifies that all the characters in STRING belong to the set of characters in SET.

Parameters

  • STRING – Shall be of type CHARACTER.

  • SET – Shall be of type CHARACTER.

  • BACK – (Optional) shall be of type LOGICAL.

  • KIND – (Optional) An INTEGER initialization expression indicating the kind parameter of the result.

Returns

The return value is of type INTEGER and of kind KIND. If KIND is absent, the return value is of default integer kind.

Standard:

Fortran 90 and later, with KIND argument Fortran 2003 and later

Class:

Elemental function

Syntax:

RESULT = VERIFY(STRING, SET[, BACK [, KIND]])

Example:

PROGRAM test_verify
  WRITE(*,*) VERIFY("FORTRAN", "AO")           ! 1, found 'F'
  WRITE(*,*) VERIFY("FORTRAN", "FOO")          ! 3, found 'R'
  WRITE(*,*) VERIFY("FORTRAN", "C++")          ! 1, found 'F'
  WRITE(*,*) VERIFY("FORTRAN", "C++", .TRUE.)  ! 7, found 'N'
  WRITE(*,*) VERIFY("FORTRAN", "FORTRAN")      ! 0' found none
END PROGRAM
See also:

SCAN, INDEX intrinsic