From: David Billinghurst <David.Billinghurst@riotinto.com>
Date: Tue, 5 Feb 2002 22:34:37 +0000 (+0000)
Subject: pr5473.f: New test
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8a921c08a7675540dc7c075dbad9c9feaad805cf;p=gcc.git

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 ed43a3ac66e..34d4afddd9a 100644
--- 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
index 00000000000..5901f2f3877
--- /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