OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

backport: re PR fortran/55907 (ICE with -fno-automatic -finit-local-zero) 

2014-02-20  Janus Weil  <janus@gcc.gnu.org>

	Backport from mainline
	2014-02-17  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/55907
	* resolve.c (build_default_init_expr): Don't initialize character
	variable if -fno-automatic is given.


2014-02-20  Janus Weil  <janus@gcc.gnu.org>

	Backport from mainline
	2014-02-17  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/55907
	* gfortran.dg/init_flag_12.f90: New.

From-SVN: r207935
This commit is contained in:
Janus Weil 2014-02-20 09:00:48 +01:00
parent c6e1999f61
commit ae8b9713a5
4 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/fortran/ChangeLog
View File

@ -1,3 +1,12 @@
2014-02-20 Janus Weil <janus@gcc.gnu.org>
Backport from mainline
2014-02-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/55907
* resolve.c (build_default_init_expr): Don't initialize character
variable if -fno-automatic is given.
2014-02-08 Mikael Morin <mikael@gcc.gnu.org>
PR fortran/57033

2
gcc/fortran/resolve.c
View File

@ -10167,7 +10167,7 @@ build_default_init_expr (gfc_symbol *sym)
init_expr = NULL;
}
if (!init_expr && gfc_option.flag_init_character == GFC_INIT_CHARACTER_ON
&& sym->ts.u.cl->length)
&& sym->ts.u.cl->length && gfc_option.flag_max_stack_var_size != 0)
{
gfc_actual_arglist *arg;
init_expr = gfc_get_expr ();

8
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
2014-02-20 Janus Weil <janus@gcc.gnu.org>
Backport from mainline
2014-02-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/55907
* gfortran.dg/init_flag_12.f90: New.
2014-02-18 Kai Tietz <ktietz@redhat.com>
PR target/60193

13
gcc/testsuite/gfortran.dg/init_flag_12.f90 Normal file
View File

@ -0,0 +1,13 @@
! { dg-do compile }
! { dg-options "-fno-automatic -finit-local-zero" }
!
! PR 55907: [4.7/4.8/4.9 Regression] ICE with -fno-automatic -finit-local-zero
!
! Contributed by J.R. Garcia <garcia.espinosa.jr@gmail.com>
subroutine cchaine (i)
implicit none
integer :: i
character(len=i) :: chaine
write(*,*) chaine
end subroutine