| ! this test checks for a non-numeric argument to an | |
| ! intrinsic function (of which ABS() is one of many). | |
| ! { dg-do compile } | |
| LOGICAL Z | |
| CHARACTER A | |
| REAL R | |
| R = ABS(Z) ! { dg-error " must have a numeric type" } | |
| R = ABS(A) ! { dg-error " must have a numeric type" } | |
| END |