1! { dg-do  run }
2! PR 66113 - this used to ICE with deeply nested BLOCKS.
3program 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) STOP 1
21end program main
22