10 lines
316 B
FortranFixed
10 lines
316 B
FortranFixed
|
! 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
|