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