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)