re PR fortran/5473 (ICE on BESJN(integer*8,real))

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

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

From-SVN: r49594

gcc/testsuite/ChangeLog

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

gcc/testsuite/g77.dg/pr5473.f

       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