mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-06 02:20:34 +08:00
Code Issues Packages Projects Releases Wiki Activity

[multiple changes]

Browse Source 
2015-10-29  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/67885
	* trans-decl.c (generate_local_decl): Mark PARAMETER entities in
	BLOCK construct.

2015-10-26  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/67885
	* gfortran.dg/pr67885.f90: New test.

From-SVN: r229540
This commit is contained in:
Steven G. Kargl 2015-10-29 17:06:58 +00:00
parent 7f71272e3b
commit 285b1f01ac
4 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2015-10-29 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/67885
* trans-decl.c (generate_local_decl): Mark PARAMETER entities in
BLOCK construct.
2015-10-29 Andrew MacLeod <amacleod@redhat.com>
* array.c: Reorder #include's and remove duplicates.

10
gcc/fortran/trans-decl.c
View File

@ -5215,6 +5215,16 @@ generate_local_decl (gfc_symbol * sym)
"Unused parameter %qs which has been explicitly "
"imported at %L", sym->name, &sym->declared_at);
}
if (sym->ns
&& sym->ns->parent
&& sym->ns->parent->code
&& sym->ns->parent->code->op == EXEC_BLOCK)
{
if (sym->attr.referenced)
gfc_get_symbol_decl (sym);
sym->mark = 1;
}
}
else if (sym->attr.flavor == FL_PROCEDURE)
{

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2015-10-29 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/67885
* gfortran.dg/pr67885.f90: New test.
2015-10-29 Jeff Law <law@redhat.com>
PR tree-optimization/67892

12
gcc/testsuite/gfortran.dg/pr67885.f90 Normal file
View File

@ -0,0 +1,12 @@
! { dg-do run }
! PR fortran/67885
! Original code contributed by Gerhard Steinmetz
! gerhard dot steinmetz dot fortran at t-online dot de
program p
block
integer, parameter :: a(2) = [1, 2]
integer :: x(2)
x = a
if (x(1) /= 1) call abort
end block
end