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

re PR fortran/51310 (-finit-bla doesn't initialize *all* items of type bla to the requested constant.) 

2011-12-15  Toon Moene  <toon@moene.org>

	PR fortran/51310
	* resolve.c (build_default_init_expr): Allow non-allocatable,
	non-compile-time-constant-shape arrays to have a default
	initializer.
	* invoke.texi: Delete the restriction on automatic arrays not

From-SVN: r182384
This commit is contained in:
Toon Moene 2011-12-15 18:26:02 +00:00 committed by Toon Moene
parent fb38bcf435
commit a3fd80eade
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/fortran/ChangeLog
View File

@ -1,3 +1,11 @@
2011-12-15 Toon Moene <toon@moene.org>
PR fortran/51310
* resolve.c (build_default_init_expr): Allow non-allocatable,
non-compile-time-constant-shape arrays to have a default
initializer.
* invoke.texi: Delete the restriction on automatic arrays not
2011-12-15 Tobias Burnus <burnus@net-b.de>
PR fortran/51550

2
gcc/fortran/invoke.texi
View File

@ -1474,8 +1474,6 @@ the real and imaginary parts of local @code{COMPLEX} variables),
value) options. These options do not initialize
@itemize @bullet
@item
automatic arrays
@item
allocatable arrays
@item
components of derived type variables

2
gcc/fortran/resolve.c
View File

@ -9900,7 +9900,7 @@ build_default_init_expr (gfc_symbol *sym)
int i;
/* These symbols should never have a default initialization. */
if ((sym->attr.dimension && !gfc_is_compile_time_shape (sym->as))
if (sym->attr.allocatable
|| sym->attr.external
|| sym->attr.dummy
|| sym->attr.pointer