gcc/testsuite/gfortran.dg/intrinsic_numeric_arg.f

   1 ! this test checks for a non-numeric argument to an
   2 ! intrinsic function (of which ABS() is one of many).
   3 !      { dg-do compile }
   4        LOGICAL Z
   5        CHARACTER A
   6        REAL R
   7        R = ABS(Z) !  { dg-error " must be a numeric type" }
   8        R = ABS(A) !  { dg-error " must be a numeric type" }
   9        END