8.137 ISNAN — Проверка на NaN

Описание:

ISNAN проверяет, является ли значение с плавающей точкой значением IEEE Не число (NaN).

Стандарт:

Расширение GNU

Класс:

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

Синтаксис:

ISNAN(X)

Аргументы:

X	Переменная типа REAL.

Возвращаемое значение:

Возвращает значение типа по умолчанию LOGICAL. Возвращаемое значение равно TRUE , если X является NaN, и FALSE в противном случае.

Пример:

program test_nan
  implicit none
  real :: x
  x = -1.0
  x = sqrt(x)
  if (isnan(x)) stop '"x" is a NaN'
end program test_nan