diff options
author | Bud Davis <jimmied@smu.edu> | 2010-11-05 03:19:13 +0000 |
---|---|---|
committer | Bud Davis <bdavis@gcc.gnu.org> | 2010-11-05 03:19:13 +0000 |
commit | 753fc83cd3455fc7f0d29d4583882d283aebfc50 (patch) | |
tree | 9b2e318be14ea75420b8322851f92e850ddf211d /gcc | |
parent | 868e54d1abd79aa22b95a70c812802dbb61da47b (diff) | |
download | gcc-753fc83cd3455fc7f0d29d4583882d283aebfc50.zip gcc-753fc83cd3455fc7f0d29d4583882d283aebfc50.tar.gz gcc-753fc83cd3455fc7f0d29d4583882d283aebfc50.tar.bz2 |
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
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/intrinsic_numeric_arg.f | 9 |
2 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7bac010..a1fb0b1 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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, diff --git a/gcc/testsuite/gfortran.dg/intrinsic_numeric_arg.f b/gcc/testsuite/gfortran.dg/intrinsic_numeric_arg.f new file mode 100644 index 0000000..3257d45 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/intrinsic_numeric_arg.f @@ -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 |