From 9060718c0bde4cd055fdcbd5349e75d56d25d136 Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Mon, 14 Jan 2002 23:35:21 +0000 Subject: intrinsic-unix-bessel.f: Uncomment additional cases that now pass. 2001-01-14 David Billinghurst * g77.f-torture/execute/intrinsic-unix-bessel.f: Uncomment additional cases that now pass. From-SVN: r48855 --- gcc/testsuite/ChangeLog | 5 +++++ .../g77.f-torture/execute/intrinsic-unix-bessel.f | 16 ++++++++-------- 2 files changed, 13 insertions(+), 8 deletions(-) (limited to 'gcc') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5466516..c7ce71f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2001-01-14 David Billinghurst + + * g77.f-torture/execute/intrinsic-unix-bessel.f: + Uncomment additional cases that now pass. + 2002-01-11 Richard Henderson * gcc.dg/i386-mmx-1.c, gcc.dg/i386-mmx-2.c: New. 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 8ff8418..b9164e4 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)') -- cgit v1.1