intrinsic-unix-bessel.f: Uncomment additional cases that now pass.

2001-01-14  David Billinghurst <David.Billinghurst@riotinto.com>

        * g77.f-torture/execute/intrinsic-unix-bessel.f:
        Uncomment additional cases that now pass.

From-SVN: r48855

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 54665164da08c6e25fbc40eb638165cf81f1a863..c7ce71f5b21c1899f2407fa70d9cd7c46a0736cf 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-14  David Billinghurst <David.Billinghurst@riotinto.com>
+
+        * g77.f-torture/execute/intrinsic-unix-bessel.f:
+        Uncomment additional cases that now pass.
+
 2002-01-11  Richard Henderson  <rth@redhat.com>
 
        * 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 8ff841866b8315c884437b43c6f65d7674877a38..b9164e48e8455d8725005d5feb8701fc9ab9145e 100644 (file)
--- 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)')