aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorBud Davis <jimmied@smu.edu>2010-11-05 03:19:13 +0000
committerBud Davis <bdavis@gcc.gnu.org>2010-11-05 03:19:13 +0000
commit753fc83cd3455fc7f0d29d4583882d283aebfc50 (patch)
tree9b2e318be14ea75420b8322851f92e850ddf211d /gcc
parent868e54d1abd79aa22b95a70c812802dbb61da47b (diff)
downloadgcc-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/ChangeLog5
-rw-r--r--gcc/testsuite/gfortran.dg/intrinsic_numeric_arg.f9
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