[patch, fortran] Fix PR 66113 error with deeply nested blocks

[Thomas Koenig]

Hello world,

this (rather obvious) patch fixes array declarations in deeply nested
BLOCKs.

Regression-tested.  OK for trunk?

	Thomas

 2015-05-16  Thomas Koenig  <tkoenig@gcc.gnu.org>

        PR fortran/66113
        * expr.c (is_parent_of_current_ns):  New function.
        (check_restricted):  Use it.

2015-05-16  Thomas Koenig  <tkoenig@gcc.gnu.org>

        PR fortran/66113
        * gfortran.dg/block_14.f90:  New test.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: p1.diff
Type: text/x-patch
Size: 1181 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20150516/cf4ae109/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: block_14.f90
Type: text/x-fortran
Size: 382 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20150516/cf4ae109/attachment-0001.bin>