diff options
author | David Billinghurst <David.Billinghurst@riotinto.com> | 2002-02-07 11:13:13 +0000 |
---|---|---|
committer | David Billinghurst <David.Billinghurst@riotinto.com> | 2002-02-07 11:13:13 +0000 |
commit | 0ef46ff93e1e1a8980c81eb2eca03f806247cafc (patch) | |
tree | 6fba0bc2aa560394301f565ee6ed2f569ed8344f /gcc/testsuite/g77.f-torture | |
parent | 6547354b0ebede1997e7c42fa824e3d5cbf37070 (diff) |
2002-02-07 David Billinghurst <David.Billinghurst@riotinto.com>
PR fortran/3743
* g77.f-torture/execute/intrinsic-unix-bessel.f: Remove
unsupported cases.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@49573 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/g77.f-torture')
-rw-r--r-- | gcc/testsuite/g77.f-torture/execute/intrinsic-unix-bessel.f | 6 |
1 files changed, 0 insertions, 6 deletions
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 b9164e48e84..53c97fd92fd 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 |