diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 3 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/class_36.f03 | 14 |
4 files changed, 26 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index bb1d89e..2331b97 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2011-02-02 Janus Weil <janus@gcc.gnu.org> + + PR fortran/47572 + * resolve.c (resolve_fl_variable): Handle polymorphic allocatables. + 2011-02-01 Janus Weil <janus@gcc.gnu.org> PR fortran/47565 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 2a0fc49..7f3734e 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -10063,7 +10063,8 @@ resolve_fl_variable (gfc_symbol *sym, int mp_flag) /* Reject illegal initializers. */ if (!sym->mark && sym->value) { - if (sym->attr.allocatable) + if (sym->attr.allocatable || (sym->ts.type == BT_CLASS + && CLASS_DATA (sym)->attr.allocatable)) gfc_error ("Allocatable '%s' at %L cannot have an initializer", sym->name, &sym->declared_at); else if (sym->attr.external) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4040f63..6b460a1 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-02-02 Janus Weil <janus@gcc.gnu.org> + + PR fortran/47572 + * gfortran.dg/class_36.f03: New. + 2011-02-02 Richard Guenther <rguenther@suse.de> PR tree-optimization/47566 diff --git a/gcc/testsuite/gfortran.dg/class_36.f03 b/gcc/testsuite/gfortran.dg/class_36.f03 new file mode 100644 index 0000000..6911f3f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/class_36.f03 @@ -0,0 +1,14 @@ +! { dg-do compile } +! +! PR 47572: [OOP] Invalid: Allocatable polymorphic with init expression. +! +! Contributed by Edmondo Giovannozzi <edmondo.giovannozzi@gmail.com> +! cf. http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/763785b16883ed68 + +program scalar_allocation + type test + real :: a + end type + class (test), allocatable :: b = test(3.4) ! { dg-error "cannot have an initializer" } + print *,allocated(b) +end program |