3 ! Original code contributed by Gerhard Steinmetz
4 ! <gerhard dot steinmetx dot fortran at t-online dot de>
6 integer, parameter :: n(3) = [1,2,3]
7 integer, parameter :: x(1) = 7
8 integer, parameter :: z(n(2):*) = x
9 if (lbound(z
,1) /= 2) call abort