pr5473.f: New test

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

	* g77.dg/pr5473.f:  New test

From-SVN: r49531

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ed43a3ac66e5dd446d880ce1931c7267208b883d..34d4afddd9ad3a73b1ae4a4e364ec99ac9a7d0ef 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/gcc/testsuite/g77.dg/pr5473.f b/gcc/testsuite/g77.dg/pr5473.f
new file mode 100644 (file)
index 0000000..5901f2f
--- /dev/null
+++ b/gcc/testsuite/g77.dg/pr5473.f
@@ -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