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
This commit is contained in:
Bud Davis 2010-11-05 03:19:13 +00:00 committed by Bud Davis
parent 868e54d1ab
commit 753fc83cd3
2 changed files with 14 additions and 0 deletions

View file

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

View file

@ -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