diff options
| author | David Billinghurst <David.Billinghurst@riotinto.com> | 2002-02-07 23:30:12 +0000 |
|---|---|---|
| committer | David Billinghurst <billingd@gcc.gnu.org> | 2002-02-07 23:30:12 +0000 |
| commit | d3dac0ae110ca238404d105e5392c6b437704064 (patch) | |
| tree | 55c3da09830a8547f9e02bfcef26b1db0e6ddf29 | |
| parent | 768070a00cc6e666a5dd0ddb01fadeecba30bf84 (diff) | |
| download | gcc-d3dac0ae110ca238404d105e5392c6b437704064.zip gcc-d3dac0ae110ca238404d105e5392c6b437704064.tar.gz gcc-d3dac0ae110ca238404d105e5392c6b437704064.tar.bz2 | |
re PR fortran/5473 (ICE on BESJN(integer*8,real))
2002-02-07 David Billinghurst <David.Billinghurst@riotinto.com>
PR fortran/5473
* g77.dg/pr5473.f: Now dg-error. Add additional cases.
From-SVN: r49594
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/g77.dg/pr5473.f | 10 |
2 files changed, 13 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7cb3acd..dcc4fd3 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2002-02-07 David Billinghurst <David.Billinghurst@riotinto.com> + + PR fortran/5473 + * g77.dg/pr5473.f: Now dg-error. Add additional cases. + 2002-02-07 Richard Henderson <rth@redhat.com> * g++.old-deja/g++.brendan/new2.C: Arrange for allocated memory @@ -9,7 +14,7 @@ 2002-02-07 David Billinghurst <David.Billinghurst@riotinto.com> - PR fortran/3743 + PR fortran/5743 * g77.f-torture/execute/intrinsic-unix-bessel.f: Remove unsupported cases. diff --git a/gcc/testsuite/g77.dg/pr5473.f b/gcc/testsuite/g77.dg/pr5473.f index 5901f2f..41a6bdb 100644 --- a/gcc/testsuite/g77.dg/pr5473.f +++ b/gcc/testsuite/g77.dg/pr5473.f @@ -1,11 +1,15 @@ 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 *-*-* } } +c { dg-do compile } real x, a + double precision dx, da integer*8 m x = 2.0 + dx = x m = 2 - a = BESJN(m,x) + a = BESJN(m,x) ! { dg-error "incorrect type" "incorrect type" } + a = BESYN(m,x) ! { dg-error "incorrect type" "incorrect type" } + da = DBESJN(m,dx) ! { dg-error "incorrect type" "incorrect type" } + da = DBESYN(m,dx) ! { dg-error "incorrect type" "incorrect type" } end |