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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7bac010f78a330e5a4d6127e57453a5044fff0f7..a1fb0b11d0c1269bd09522d3ac401add969b3c2a 100644 (file)
--- 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 (file)
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