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