Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pr81175.f @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! { dg-options "-Ofast -fwrapv" }
kono
parents:
diff changeset
3 ! { dg-additional-options "-march=broadwell" { target x86_64-*-* i?86-*-* } }
kono
parents:
diff changeset
4 SUBROUTINE ECPDRA(IC4C,FP,FQ,G)
kono
parents:
diff changeset
5 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
kono
parents:
diff changeset
6 DIMENSION FP(*),FQ(*),G(*)
kono
parents:
diff changeset
7 DIMENSION CKLU(23,12,12)
kono
parents:
diff changeset
8 !
kono
parents:
diff changeset
9 DO 240 I=IAMIN,IAMAX
kono
parents:
diff changeset
10 DO 240 J=JAMIN,MMAX
kono
parents:
diff changeset
11 DO 230 K=1,NPNP
kono
parents:
diff changeset
12 DO 230 L=1,K
kono
parents:
diff changeset
13 DO 230 MU=1,2*L-1
kono
parents:
diff changeset
14 CKLTEM= CKLU(MU,L,K)
kono
parents:
diff changeset
15 IF(IC4C.LE.0) THEN
kono
parents:
diff changeset
16 IF(ABS(CKLTEM).GT.TOL) SUM= SUM+FP(N)*CKLTEM
kono
parents:
diff changeset
17 ELSE
kono
parents:
diff changeset
18 IF(ABS(CKLTEM).GT.TOL) SUM= SUM+FQ(N)*CKLTEM
kono
parents:
diff changeset
19 END IF
kono
parents:
diff changeset
20 230 N= N+1
kono
parents:
diff changeset
21 G(NN)= G(NN)+DUMJ*SUM
kono
parents:
diff changeset
22 240 NN= NN+1
kono
parents:
diff changeset
23 END