FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
From-SVN: r50407
This commit is contained in:
Jeff Law 2002-03-07 10:50:08 -07:00 • committed by Jeff Law
parent 66d5434463
commit fcf742eac8
2 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View file

@ -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.

21
gcc/testsuite/g77.f-torture/compile/20020307-1.f Normal file
View file

@ -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