blob: 413ce80e206f6780f72804e4dc3ac67856f4659d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! 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
|
