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

gcc/testsuite/ChangeLog

+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,

gcc/testsuite/gfortran.dg/intrinsic_numeric_arg.f

+! 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