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