2002-02-07 David Billinghurst <David.Billinghurst@riotinto.com>

	PR fortran/5473
	* g77.dg/pr5473.f: Now dg-error.  Add additional cases.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@49594 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7cb3acd..dcc4fd3 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-07  David Billinghurst <David.Billinghurst@riotinto.com>
+
+       PR fortran/5473
+       * g77.dg/pr5473.f: Now dg-error.  Add additional cases.  
+
 2002-02-07  Richard Henderson  <rth@redhat.com>
 
        * g++.old-deja/g++.brendan/new2.C: Arrange for allocated memory
@@ -9,7 +14,7 @@
 
 2002-02-07  David Billinghurst <David.Billinghurst@riotinto.com>
 
-       PR fortran/3743
+       PR fortran/5743
        * g77.f-torture/execute/intrinsic-unix-bessel.f: Remove
        unsupported cases.
 

diff --git a/gcc/testsuite/g77.dg/pr5473.f b/gcc/testsuite/g77.dg/pr5473.f
index 5901f2f..41a6bdb 100644 (file)
--- a/gcc/testsuite/g77.dg/pr5473.f
+++ b/gcc/testsuite/g77.dg/pr5473.f
@@ -1,11 +1,15 @@
       program pr5473
 c Derived from g77.f-torture/execute/intrinsic-unix-bessel.f
 c Origin: David Billinghurst <David.Billinghurst@riotinto.com>
-c { dg-do compile { xfail *-*-* } }
-c { dg-excess-errors "Assertion failed"  { xfail *-*-* } }
+c { dg-do compile }
       real x, a
+      double precision dx, da
       integer*8 m
       x = 2.0
+      dx = x
       m = 2
-      a = BESJN(m,x)
+      a = BESJN(m,x) ! { dg-error "incorrect type" "incorrect type" }
+      a = BESYN(m,x) ! { dg-error "incorrect type" "incorrect type" }
+      da = DBESJN(m,dx) ! { dg-error "incorrect type" "incorrect type" }
+      da = DBESYN(m,dx) ! { dg-error "incorrect type" "incorrect type" }
       end