| ! { dg-do run } | |
| ! PR fortran/68053 | |
| ! Original code contributed by Gerhard Steinmetz | |
| ! <gerhard dot steinmetx dot fortran at t-online dot de> | |
| program p | |
| integer, parameter :: n(3) = [1,2,3] | |
| integer, parameter :: x(1) = 7 | |
| integer, parameter :: z(n(2):*) = x | |
| if (lbound(z,1) /= 2) STOP 1 | |
| end |