Mercurial > hg > CbC > CbC_gcc

comparison 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
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 ! { dg-options "-Ofast -fwrapv" }
3 ! { dg-additional-options "-march=broadwell" { target x86_64-*-* i?86-*-* } }
4 SUBROUTINE ECPDRA(IC4C,FP,FQ,G)
5 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6 DIMENSION FP(*),FQ(*),G(*)
7 DIMENSION CKLU(23,12,12)
8 !
9 DO 240 I=IAMIN,IAMAX
10 DO 240 J=JAMIN,MMAX
11 DO 230 K=1,NPNP
12 DO 230 L=1,K
13 DO 230 MU=1,2*L-1
14 CKLTEM= CKLU(MU,L,K)
15 IF(IC4C.LE.0) THEN
16 IF(ABS(CKLTEM).GT.TOL) SUM= SUM+FP(N)*CKLTEM
17 ELSE
18 IF(ABS(CKLTEM).GT.TOL) SUM= SUM+FQ(N)*CKLTEM
19 END IF
20 230 N= N+1
21 G(NN)= G(NN)+DUMJ*SUM
22 240 NN= NN+1
23 END