* g77.f-torture/compile/20020307-1.f: New test.

From-SVN: r50407

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5b7471de374a636547842243ca786c99e0fe8cd5..ffe70aa345d7f189281f728f5c86f707acf1866c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+Thu Mar  7 10:05:31 2002  Jeffrey A Law  (law@redhat.com)
+
+       * g77.f-torture/compile/20020307-1.f: New test.
+
 2002-03-07  Richard Sandiford  <rsandifo@redhat.com>
 
        * gcc.dg/unordered-1.c: New test.

diff --git a/gcc/testsuite/g77.f-torture/compile/20020307-1.f b/gcc/testsuite/g77.f-torture/compile/20020307-1.f
new file mode 100644 (file)
index 0000000..cfea25b
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/20020307-1.f
@@ -0,0 +1,21 @@
+      SUBROUTINE SWEEP
+      PARAMETER(MAXDIM=4,MAXVEC=4**3*8,MAXT=20)
+      REAL*8 B,W1,W2,BNORM,BINV,WT,W0,C1,C2,R1,R2
+      DIMENSION B(MAXVEC,0:3),W1(MAXVEC,0:3),W2(MAXVEC,0:3)
+      DIMENSION BNORM(MAXVEC),BINV(MAXVEC),WT(MAXVEC),W0(MAXVEC)
+      DIMENSION C1(MAXVEC),C2(MAXVEC),R1(MAXVEC),R2(MAXVEC)
+      DO 200 ILAT=1,2**IDIM
+      DO 200 I1=1,IDIM
+      DO 220 I2=1,IDIM
+      CALL INTACT(ILAT,I1,I1,W1)
+220   CONTINUE
+      DO 310 IATT=1,IDIM
+      DO 311 I=1,100
+      WT(I)=ONE + C1(I)*LOG(EPS+R1(I))
+      IF( R2(I)**2 .LE. (ONE-WT(I)**2) )THEN
+      W0(I)=WT(I)
+      ENDIF
+311   CONTINUE
+310   CONTINUE
+200   CONTINUE
+      END