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

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
line wrap: on
line source

! { dg-do compile }
! { dg-options "-Ofast -fwrapv" }
! { dg-additional-options "-march=broadwell" { target x86_64-*-* i?86-*-* } }
      SUBROUTINE ECPDRA(IC4C,FP,FQ,G)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION FP(*),FQ(*),G(*)
      DIMENSION CKLU(23,12,12)
!
      DO 240 I=IAMIN,IAMAX
         DO 240 J=JAMIN,MMAX
            DO 230 K=1,NPNP
               DO 230 L=1,K
                  DO 230 MU=1,2*L-1
                     CKLTEM= CKLU(MU,L,K)
                     IF(IC4C.LE.0) THEN
                        IF(ABS(CKLTEM).GT.TOL) SUM= SUM+FP(N)*CKLTEM
                     ELSE
                        IF(ABS(CKLTEM).GT.TOL) SUM= SUM+FQ(N)*CKLTEM
                     END IF
  230       N= N+1
            G(NN)= G(NN)+DUMJ*SUM
  240 NN= NN+1
      END