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