diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7bac010f78a..a1fb0b11d0c 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 00000000000..3257d456f75
--- /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