14 lines
322 B
Fortran
14 lines
322 B
Fortran
! { 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
|
|
|