Searched refs:ptr_component (Results 1 – 2 of 2) sorted by relevance
6220 bool ptr_component; in gfc_check_vardef_context() local6326 ptr_component = (sym->ts.type == BT_CLASS && sym->ts.u.derived in gfc_check_vardef_context()6331 if (ptr_component && ref->type == REF_COMPONENT) in gfc_check_vardef_context()6336 ptr_component = (comp->ts.type == BT_CLASS && comp->attr.class_ok) in gfc_check_vardef_context()6339 if (ptr_component && !pointer) in gfc_check_vardef_context()
6166 bool ptr_component; in gfc_check_vardef_context() local6270 ptr_component = (sym->ts.type == BT_CLASS && sym->ts.u.derived in gfc_check_vardef_context()6275 if (ptr_component && ref->type == REF_COMPONENT) in gfc_check_vardef_context()6280 ptr_component = (comp->ts.type == BT_CLASS && comp->attr.class_ok) in gfc_check_vardef_context()6283 if (ptr_component && !pointer) in gfc_check_vardef_context()