diff options
author | David Billinghurst <David.Billinghurst@riotinto.com> | 2002-01-14 23:35:21 +0000 |
---|---|---|
committer | Toon Moene <toon@moene.indiv.nluug.nl> | 2002-01-14 23:35:21 +0000 |
commit | 41a10b79e7e7aa8189d2c3519f34e510e29643b0 (patch) | |
tree | 154d56065ca773dccc3862707a56c6887e86da01 /gcc/testsuite/g77.f-torture | |
parent | 5331ebd4e68548cbe283f7e315f4cd325d88070d (diff) |
2001-01-14 David Billinghurst <David.Billinghurst@riotinto.com>
* g77.f-torture/execute/intrinsic-unix-bessel.f:
Uncomment additional cases that now pass.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@48855 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 | 16 |
1 files changed, 8 insertions, 8 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 8ff841866b8..b9164e48e84 100644 --- a/gcc/testsuite/g77.f-torture/execute/intrinsic-unix-bessel.f +++ b/gcc/testsuite/g77.f-torture/execute/intrinsic-unix-bessel.f @@ -39,11 +39,11 @@ c BESJN - Bessel function of first kind of order N a = 0.3528340 da = a call c_r(BESJN(i,x),a,'BESJN(integer,real)') -c call c_r(BESJN(j,x),a,'BESJN(integer*2,real)') -c call c_r(BESJN(k,x),a,'BESJN(integer*1,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)') -c call c_d(BESJN(i,dx),da,'BESJN(integer,double)') -c call c_d(BESJN(j,dx),da,'BESJN(integer*2,double)') + 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)') @@ -69,11 +69,11 @@ c BESYN - Bessel function of second kind of order N a = -0.6174081 da = a call c_r(BESYN(i,x),a,'BESYN(integer,real)') -c call c_r(BESYN(j,x),a,'BESYN(integer*2,real)') -c call c_r(BESYN(k,x),a,'BESYN(integer*1,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)') -c call c_d(BESYN(i,dx),da,'BESYN(integer,double)') -c call c_d(BESYN(j,dx),da,'BESYN(integer*2,double)') + 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)') |