PR fortran/30660
* resolve.c (has_default_initializer): New function.
(resolve_fl_variable): Call has_default_initializer to determine if
the derived type has a default initializer to its ultimate
components.
2007-02-23 Paul Thomas <pault@gcc.gnu.org>
PR fortran/30660
* gfortran.dg/alloc_comp_basics_4.f90: Add component with an
allocatable component.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122263
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-02-23 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/30660
+ * resolve.c (has_default_initializer): New function.
+ (resolve_fl_variable): Call has_default_initializer to determine if
+ the derived type has a default initializer to its ultimate
+ components.
+
+
2007-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* options.c (set_default_std_flags): New function to consolidate
}
+static gfc_component *
+has_default_initializer (gfc_symbol *der)
+{
+ gfc_component *c;
+ for (c = der->components; c; c = c->next)
+ if ((c->ts.type != BT_DERIVED && c->initializer)
+ || (c->ts.type == BT_DERIVED
+ && !c->pointer
+ && has_default_initializer (c->ts.derived)))
+ break;
+
+ return c;
+}
+
+
/* Resolve symbols with flavor variable. */
static try
components. */
c = NULL;
if (sym->ts.type == BT_DERIVED && !(sym->value || flag))
- for (c = sym->ts.derived->components; c; c = c->next)
- if (c->initializer)
- break;
+ c = has_default_initializer (sym->ts.derived);
/* 4th constraint in section 11.3: "If an object of a type for which
component-initialization is specified (R429) appears in the
+2007-02-23 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/30660
+ * gfortran.dg/alloc_comp_basics_4.f90: Add component with an
+ allocatable component.
+
+
2007-02-23 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* gcc.dg/torture/builtin-logb-1.c: New test.
! Contributed by Toon Moene <toon@moene.indiv.nluug.nl>
!
MODULE types_m
+ TYPE coord_t
+ INTEGER ncord
+ REAL,ALLOCATABLE,DIMENSION(:) :: x, y
+ END TYPE
+
TYPE grib_t
REAL,DIMENSION(:),ALLOCATABLE :: vdata
+ TYPE(coord_t) coords
END TYPE
END MODULE