PR fortran/56575
* expr.c (gfc_default_initializer): Check that a class declared
type has any components.
* resolve.c (resolve_fl_derived0): On failing the test for C437
set the type to BT_UNKNOWN to prevent repeat error messages.
2013-03-13 Paul Thomas <pault@gcc.gnu.org>
PR fortran/56575
* gfortran.dg/class_56.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_7-branch@196627
138bc75d-0d04-0410-961f-
82ee72b054a4
+2013-03-13 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/56575
+ * expr.c (gfc_default_initializer): Check that a class declared
+ type has any components.
+ * resolve.c (resolve_fl_derived0): On failing the test for C437
+ set the type to BT_UNKNOWN to prevent repeat error messages.
+
2013-03-10 Paul Thomas <pault@gcc.gnu.org>
PR fortran/55362
types (otherwise we could use gfc_has_default_initializer()). */
for (comp = ts->u.derived->components; comp; comp = comp->next)
if (comp->initializer || comp->attr.allocatable
- || (comp->ts.type == BT_CLASS && CLASS_DATA (comp)->attr.allocatable))
+ || (comp->ts.type == BT_CLASS && CLASS_DATA (comp)
+ && CLASS_DATA (comp)->attr.allocatable))
break;
if (!comp)
{
gfc_error ("Component '%s' with CLASS at %L must be allocatable "
"or pointer", c->name, &c->loc);
+ /* Prevent a recurrence of the error. */
+ c->ts.type = BT_UNKNOWN;
return FAILURE;
}
+2013-03-13 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/56575
+ * gfortran.dg/class_56.f90: New test.
+
2013-03-10 Paul Thomas <pault@gcc.gnu.org>
PR fortran/55362
--- /dev/null
+! { dg-do compile }
+! Test fix for PR56575.
+!
+! Contributed by A Kasahara <latlon90180+gcc_bugzilla@gmail.com>
+!
+module lib_container
+ implicit none
+
+ type:: Object
+ end type Object
+
+ type:: Container
+ class(Object):: v ! { dg-error "must be allocatable or pointer" }
+ end type Container
+
+contains
+
+ subroutine proc(self)
+ class(Container), intent(inout):: self
+ end subroutine proc
+end module lib_container