gcc/testsuite/gfortran.dg/zero_sized_2.f90

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