diff options
| author | Toon Moene <toon@moene.org> | 2011-12-15 18:26:02 +0000 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2011-12-15 18:26:02 +0000 |
| commit | a3fd80eade6e515fef7bce24e178dd4c986e6ae1 (patch) | |
| tree | 7ee25a24c5355077e8651703f447ca84e399a80a /gcc/fortran/resolve.c | |
| parent | fb38bcf435cf251c38ed67f794778d35118612e2 (diff) | |
| download | gcc-a3fd80eade6e515fef7bce24e178dd4c986e6ae1.zip gcc-a3fd80eade6e515fef7bce24e178dd4c986e6ae1.tar.gz gcc-a3fd80eade6e515fef7bce24e178dd4c986e6ae1.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index b12efe0..e99e199 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -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 |