gcc/testsuite/gfortran.dg/pack_assign_1.f90


1
2
3
4
5
6
7
8

! { dg-do compile }
! PR32890 - compile-time checks for assigments

INTEGER :: it, neighbrs(42)  ! anything but 30

neighbrs = PACK((/ (it, it=1,30) /), (/ (it, it=1,30) /) < 3, (/ (0,it=1,30) /) )  ! { dg-error "Different shape" }

END