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
10