make clear that this isNaN is an intrinsic extension

2015-09-24 08:45:44 +00:00 · 2015-09-24 08:45:44 +00:00 · 2e70e6fded
parent 3c901e5549
commit 2e70e6fded
1 changed files with 1 additions and 0 deletions
--- 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)