From 8a921c08a7675540dc7c075dbad9c9feaad805cf Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Tue, 5 Feb 2002 22:34:37 +0000 Subject: [PATCH] pr5473.f: New test 2002-02-05 David Billinghurst * g77.dg/pr5473.f: New test From-SVN: r49531 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/g77.dg/pr5473.f | 11 +++++++++++ 2 files changed, 15 insertions(+) create mode 100644 gcc/testsuite/g77.dg/pr5473.f 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 + + * g77.dg/pr5473.f: New test + 2002-02-05 Aldy Hernandez * 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 +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 -- 2.30.2