8.282 VERIFY — Поиск символов в строке, не принадлежащих заданному набору

Описание:

Проверяет, что все символы в STRING принадлежат набору символов в SET.

Если BACK отсутствует или равно FALSE, эта функция возвращает позицию самого левого символа в STRING, который не входит в SET. Если BACK равно TRUE, возвращается правая позиция. Если все символы STRING найдены в SET, результат равен нулю.

Стандарт:

Fortran 90 и более поздние версии, с аргументом KIND Fortran 2003 и более поздние версии

Класс:

Элементарная функция

Синтаксис:

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

Аргументы:

`STRING`	Должен быть типа `CHARACTER`.
`SET`	Должен быть типа `CHARACTER`.
`BACK`	(Необязательно) должен быть типа `LOGICAL`.
`KIND`	(Необязательно) Скалярное `INTEGER` константное выражение, указывающее параметр рода результата.

Значение возврата:

Значение возврата имеет тип INTEGER и род KIND. Если KIND отсутствует, значение возврата имеет род по умолчанию для целых чисел.

Пример:

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

См. также:

SCAN — Поиск символов в строке, принадлежащих заданному набору, INDEX — Позиция подстроки в строке

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-13.3.0/gfortran/VERIFY.html