From 2e70e6fded1f5eb326af537f867907574f9df2ed Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 24 Sep 2015 08:45:44 +0000 Subject: [PATCH] make clear that this isNaN is an intrinsic extension --- code/prec.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/code/prec.f90 b/code/prec.f90 index c050abf04..e370e174e 100644 --- a/code/prec.f90 +++ b/code/prec.f90 @@ -185,6 +185,7 @@ logical elemental function prec_isNaN(a) real(pReal), intent(in) :: a #if defined(__GFORTRAN__) || defined(Abaqus) + intrinsic :: isNaN prec_isNaN = isNaN(a) #else prec_isNaN = IEEE_is_NaN(a)