blob: 7c480fc36c7c247df5eeaff02fbdbe2edb251ca7 (
plain)
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
|
