diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/g77.dg/pr5473.f | 11 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ed43a3a..34d4afd 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 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 |