intrinsic_numeric_arg.f: Add test to check error message.
2010-11-04 Bud Davis <jimmied@smu.edu> * gfortran.dg/intrinsic_numeric_arg.f: Add test to check error message. From-SVN: r166347
This commit is contained in:
parent
868e54d1ab
commit
753fc83cd3
2 changed files with 14 additions and 0 deletions
|
@ -1,3 +1,8 @@
|
|||
2010-11-04 Bud Davis <jimmied@smu.edu>
|
||||
|
||||
* gfortran.dg/intrinsic_numeric_arg.f: Add test to check
|
||||
error message.
|
||||
|
||||
2010-11-04 Chao-ying Fu <fu@mips.com>
|
||||
|
||||
* gcc.target/mips/mips32-dsp.c: Add tests for madd, maddu, msub,
|
||||
|
|
9
gcc/testsuite/gfortran.dg/intrinsic_numeric_arg.f
Normal file
9
gcc/testsuite/gfortran.dg/intrinsic_numeric_arg.f
Normal file
|
@ -0,0 +1,9 @@
|
|||
! 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 be a numeric type" }
|
||||
R = ABS(A) ! { dg-error " must be a numeric type" }
|
||||
END
|
Loading…
Add table
Reference in a new issue