! PR tree-optimization/68592
! { dg-do compile }
! { dg-require-profiling "-fprofile-generate" }
! { dg-options "-Ofast -fprofile-generate" }
! { dg-additional-options "-mavx" { target x86_64-*-* i?86-*-* } }
      PARAMETER (MXCPGA=320,ZERO=0.0)
      DIMENSION CPNORM(MXCPGA),CDNORM(MXCPGA),
     *          CFNORM(MXCPGA)  
         KTYPIL        = KTYPI()
         DO 84 K=1,NOGTF
           LMP=LMP+1
           CFNORM(LMP)=ZERO
           IF (KTYPIL.EQ.1) LMP=CMPILMP
           IF (KTYPIL.EQ.2) CPNORM(LMP)=CMPILMP
           IF (KTYPIL.EQ.3) CDNORM(LMP)=CMPILMP
           IF (KTYPIL.EQ.4) LMP=CMPILMP
           IF (KTYPIL.EQ.6) LMP=CMPILMP
   84    CONTINUE
         CALL MMPNOR(CPNORM,CDNORM,CFNORM) 
      END