1! PR tree-optimization/68592 2! { dg-do compile } 3! { dg-require-profiling "-fprofile-generate" } 4! { dg-options "-Ofast -fprofile-generate" } 5! { dg-additional-options "-mavx" { target x86_64-*-* i?86-*-* } } 6 PARAMETER (MXCPGA=320,ZERO=0.0) 7 DIMENSION CPNORM(MXCPGA),CDNORM(MXCPGA), 8 * CFNORM(MXCPGA) 9 KTYPIL = KTYPI() 10 DO 84 K=1,NOGTF 11 LMP=LMP+1 12 CFNORM(LMP)=ZERO 13 IF (KTYPIL.EQ.1) LMP=CMPILMP 14 IF (KTYPIL.EQ.2) CPNORM(LMP)=CMPILMP 15 IF (KTYPIL.EQ.3) CDNORM(LMP)=CMPILMP 16 IF (KTYPIL.EQ.4) LMP=CMPILMP 17 IF (KTYPIL.EQ.6) LMP=CMPILMP 18 84 CONTINUE 19 CALL MMPNOR(CPNORM,CDNORM,CFNORM) 20 END 21