Testsuite case for PR fortran/5473

[Billinghurst, David (CRTS)]

Here is the test case for fortran/5473.  It is a (very) low priority xfail.

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

	* g77.dg/pr5473.f:  New test

--- /dev/null   Tue Feb  5 11:07:24 2002
+++ g77.dg/pr5473.f     Tue Feb  5 10:50:57 2002
@@ -0,0 +1,11 @@
+      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