mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-15 22:51:38 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/66113 (Variable n cannot appear in the expression with nested blocks)

Browse Source 
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.

From-SVN: r223238
This commit is contained in:
Thomas Koenig 2015-05-16 12:33:01 +00:00
parent 2a2703a2bd
commit 1aae3f0547
4 changed files with 46 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
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 Manuel López-Ibáñez <manu@gcc.gnu.org>
PR fortran/44054
@ -28,7 +34,7 @@
(gfc_diagnostics_init): Initialize caret_chars array.
(gfc_diagnostics_finish): Reset caret_chars array to default.
2015-05-16 Mikael Morin <mikael@gcc.gnu.org
2015-05-16 Mikael Morin <mikael@gcc.gnu.org>
Paul Thomas <pault@gcc.gnu.org>
PR fortran/65792

16
gcc/fortran/expr.c
View File

@ -2841,6 +2841,18 @@ check_references (gfc_ref* ref, bool (*checker) (gfc_expr*))
return check_references (ref->next, checker);
}
/* Return true if ns is a parent of the current ns. */
static bool
is_parent_of_current_ns (gfc_namespace *ns)
{
gfc_namespace *p;
for (p = gfc_current_ns->parent; p; p = p->parent)
if (ns == p)
return true;
return false;
}
/* Verify that an expression is a restricted expression. Like its
cousin check_init_expr(), an error message is generated if we
@ -2929,9 +2941,7 @@ check_restricted (gfc_expr *e)
|| sym->attr.dummy
|| sym->attr.implied_index
|| sym->attr.flavor == FL_PARAMETER
|| (sym->ns && sym->ns == gfc_current_ns->parent)
|| (sym->ns && gfc_current_ns->parent
&& sym->ns == gfc_current_ns->parent->parent)
|| is_parent_of_current_ns (sym->ns)
|| (sym->ns->proc_name != NULL
&& sym->ns->proc_name->attr.flavor == FL_MODULE)
|| (gfc_is_formal_arg () && (sym->ns == gfc_current_ns)))

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2015-05-16 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/66113
* gfortran.dg/block_14.f90: New test.
2015-05-16 Manuel López-Ibáñez <manu@gcc.gnu.org>
PR fortran/44054

21
gcc/testsuite/gfortran.dg/block_14.f90 Normal file
View File

@ -0,0 +1,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) call abort
end program main