! { dg-do compile } | |
! Tests the fix for PR30514 in which the bounds on m would cause an | |
! error and the rest would cause the compiler to go into an infinite | |
! loop. | |
! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
! | |
integer :: i(2:0), j(1:0), m(1:-1) | |
integer, parameter :: k(2:0) = 0, l(1:0) = 0 | |
i = k | |
j = l | |
m = 5 | |
end | |