pr5473.f: New test

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

	* g77.dg/pr5473.f:  New test

From-SVN: r49531

gcc/testsuite/ChangeLog

+2002-02-05  David Billinghurst <David.Billinghurst@riotinto.com>
+
+	* g77.dg/pr5473.f:  New test
+
 2002-02-05  Aldy Hernandez  <aldyh@redhat.com>
 
         * gcc.dg/altivec-4.c: AltiVec builtin predicates changed format.

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 *-*-* } }
+      real x, a
+      integer*8 m
+      x = 2.0
+      m = 2
+      a = BESJN(m,x)
+      end