diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/fortran/invoke.texi | 2 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
3 files changed, 9 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5175e41..e2f9525 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 diff --git a/gcc/fortran/invoke.texi b/gcc/fortran/invoke.texi index f25af40..e2661f3 100644 --- a/gcc/fortran/invoke.texi +++ b/gcc/fortran/invoke.texi @@ -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 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 |