1! { dg-do compile }
2! { dg-options "-floop-nest-optimize -fcheck=bounds -O1" }
3
4SUBROUTINE PD2VAL(RES,NDERIV,TG1,TG2,C0)
5    INTEGER, PARAMETER :: dp=8
6    REAL(KIND=dp), INTENT(OUT)  :: res(*)
7    REAL(KIND=dp), INTENT(IN)   :: TG1, TG2, C0(105,*)
8    REAL(KIND=dp)               :: T1(0:13), T2(0:13)
9 DO K=1,NDERIV+1
10  RES(K)=RES(K)+DOT_PRODUCT(T1(0:7),C0(70:77,K))*T2(6)
11  RES(K)=RES(K)+DOT_PRODUCT(T1(0:4),C0(91:95,K))*T2(9)
12  RES(K)=RES(K)+DOT_PRODUCT(T1(0:3),C0(96:99,K))*T2(10)
13 ENDDO
14END SUBROUTINE PD2VAL
15