gcc/testsuite/gfortran.dg/block_14.f90

   1 ! { dg-do  run }
   2 ! PR 66113 - this used to ICE with deeply nested BLOCKS.
   3 program main
   4   integer :: n
   5   real :: s
   6   n = 3
   7   block
   8     block
   9       block
  10         block
  11           block
  12             real, dimension(n) :: a
  13             a = 3.
  14             s = sum(a)
  15           end block
  16         end block
  17       end block
  18     end block
  19   end block
  20   if (s /= 9) call abort
  21 end program main