gcc/testsuite/gfortran.dg/pack_assign_1.f90

   1 ! { dg-do "compile" }
   2 ! PR32890 - compile-time checks for assigments
   3
   4 INTEGER :: it, neighbrs(42)  ! anything but 30
   5
   6 neighbrs = PACK((/ (it, it=1,30) /), (/ (it, it=1,30) /) < 3, (/ (0,it=1,30) /) )  ! { dg-error "Different shape" }
   7
   8 END