This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Other format: | [Raw text] |
I don't see what you mean. The intention here was to check the 'referenced' attribute only for non-dummies, but anyway ...
/* Assign default initializer. */ if (!(sym->value || sym->attr.pointer || sym->attr.allocatable) && (!no_init_flag || sym->attr.intent == INTENT_OUT)) { sym->value = gfc_default_initializer (&sym->ts); }
+ if (sym->ts.type == BT_CLASS&& sym->ns == gfc_current_ns +&& sym->attr.dummy&& sym->attr.intent == INTENT_OUT +&& !sym->attr.pointer&& !sym->attr.allocatable) + apply_default_init (sym); + /* If this symbol has a type-spec, check it. */ if (sym->attr.flavor == FL_VARIABLE || sym->attr.flavor == FL_PARAMETER || (sym->attr.flavor == FL_PROCEDURE&& sym->attr.function))
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |