* Additional test case
@ 2010-11-05 2:48 Davis, Jimmie
2010-11-05 3:17 ` Steve Kargl
0 siblings, 1 reply; 3+ messages in thread
From: Davis, Jimmie @ 2010-11-05 2:48 UTC (permalink / raw)
To: fortran; +Cc: gcc-patches
This test case adds the test for a non-numeric argument to certain intrinsics.
2010-11-04 Bud Davis <jimmied@smu.edu>
* gfortran.dg/intrinsic_numeric_arg.f: Add test to check
error message.
Index: gcc/gcc/testsuite/gfortran.dg/intrinsic_numeric_arg.f
===================================================================
--- gcc/gcc/testsuite/gfortran.dg/intrinsic_numeric_arg.f (revision 0)
+++ gcc/gcc/testsuite/gfortran.dg/intrinsic_numeric_arg.f (revision 0)
@@ -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
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2010-11-05 3:17 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-11-05 2:48 Additional test case Davis, Jimmie
2010-11-05 3:17 ` Steve Kargl
2010-11-05 3:52 ` Davis, Jimmie
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).