1! { dg-do run }
2! PR fortran/68053
3! Original code contributed by Gerhard Steinmetz
4! <gerhard dot steinmetx dot fortran at t-online dot de>
5program p
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
10end
11