[Bug fortran/66113] Variable n cannot appear in the expression with nested blocks

[tkoenig at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66113

--- Comment #2 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
(In reply to Dominique d'Humieres from comment #1)
> Is not the code invalid?

I don't think it is invalid.

This works as expected:

program main
  integer :: n
  n = 3
    block
      block
        real, dimension(n) :: a
      end block
    end block
end program main