gcc/testsuite/gfortran.dg/pr67885.f90

   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
   5 program 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
  12 end