gcc/testsuite/gfortran.dg/pr68592.f

   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