1! { dg-do run }
2! PR fortran/67885
3! Original code contributed by Gerhard Steinmetz
4! gerhard dot steinmetz dot fortran at t-online dot de
5program p
6 block
7 integer, parameter :: a(2) = [1, 2]
8 integer :: x(2)
9 x = a
10 if (x(1) /= 1) call abort
11 end block
12end
13