From 3f9796f922e2547a44c0d3d997620ec3c6cb9c9d Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Thu, 7 Feb 2002 11:13:13 +0000 Subject: re PR fortran/3743 (Reference to intrinsic `ISHFT' invalid) 2002-02-07 David Billinghurst PR fortran/3743 * g77.f-torture/execute/intrinsic-unix-bessel.f: Remove unsupported cases. From-SVN: r49573 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/g77.f-torture/execute/intrinsic-unix-bessel.f | 6 ------ 2 files changed, 6 insertions(+), 6 deletions(-) (limited to 'gcc') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index af9c9ea..635223e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2002-02-07 David Billinghurst + + PR fortran/3743 + * g77.f-torture/execute/intrinsic-unix-bessel.f: Remove + unsupported cases. + 2002-02-07 Richard Henderson * gcc.dg/debug/dwarf2-1.c: Update for return warnings. diff --git a/gcc/testsuite/g77.f-torture/execute/intrinsic-unix-bessel.f b/gcc/testsuite/g77.f-torture/execute/intrinsic-unix-bessel.f index b9164e4..53c97fd 100644 --- a/gcc/testsuite/g77.f-torture/execute/intrinsic-unix-bessel.f +++ b/gcc/testsuite/g77.f-torture/execute/intrinsic-unix-bessel.f @@ -41,15 +41,12 @@ c BESJN - Bessel function of first kind of order N call c_r(BESJN(i,x),a,'BESJN(integer,real)') call c_r(BESJN(j,x),a,'BESJN(integer*2,real)') call c_r(BESJN(k,x),a,'BESJN(integer*1,real)') -c call c_r(BESJN(m,x),a,'BESJN(integer*8,real)') call c_d(BESJN(i,dx),da,'BESJN(integer,double)') call c_d(BESJN(j,dx),da,'BESJN(integer*2,double)') call c_d(BESJN(k,dx),da,'BESJN(integer*1,double)') -c call c_d(BESJN(m,dx),da,'BESJN(integer*8,double)') call c_d(DBESJN(i,dx),da,'DBESJN(integer,double)') call c_d(DBESJN(j,dx),da,'DBESJN(integer*2,double)') call c_d(DBESJN(k,dx),da,'DBESJN(integer*1,double)') -c call c_d(DBESJN(m,dx),da,'DBESJN(integer*8,double)') c BESY0 - Bessel function of second kind of order zero a = 0.51037567 @@ -71,15 +68,12 @@ c BESYN - Bessel function of second kind of order N call c_r(BESYN(i,x),a,'BESYN(integer,real)') call c_r(BESYN(j,x),a,'BESYN(integer*2,real)') call c_r(BESYN(k,x),a,'BESYN(integer*1,real)') -c call c_r(BESYN(m,x),a,'BESYN(integer*8,real)') call c_d(BESYN(i,dx),da,'BESYN(integer,double)') call c_d(BESYN(j,dx),da,'BESYN(integer*2,double)') call c_d(BESYN(k,dx),da,'BESYN(integer*1,double)') -c call c_d(BESYN(m,dx),da,'BESYN(integer*8,double)') call c_d(DBESYN(i,dx),da,'DBESYN(integer,double)') call c_d(DBESYN(j,dx),da,'DBESYN(integer*2,double)') call c_d(DBESYN(k,dx),da,'DBESYN(integer*1,double)') -c call c_d(DBESYN(m,dx),da,'DBESYN(integer*8,double)') if ( fail ) call abort() end -- cgit v1.1