gcc/testsuite/gfortran.dg/block_14.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

! { dg-do  run }
! PR 66113 - this used to ICE with deeply nested BLOCKS.
program main
  integer :: n
  real :: s
  n = 3
  block
    block
      block
        block
          block
            real, dimension(n) :: a
            a = 3.
            s = sum(a)
          end block
        end block
      end block
    end block
  end block
  if (s /= 9) STOP 1
end program main