2974   bool coarray, lock_type, event_type, allocatable, pointer;  in check_component()  local
2975   coarray = lock_type = event_type = allocatable = pointer = false;  in check_component()
3013       coarray = true;  in check_component()
3020       coarray = true;  in check_component()
3063   if (pointer && !coarray && lock_type)  in check_component()
3068   else if (pointer && !coarray && c->ts.type == BT_DERIVED  in check_component()
3074   if (lock_type && allocatable && !coarray)  in check_component()
3083   if (sym->attr.coarray_comp && !coarray && lock_type)  in check_component()
3090   if (sym->attr.lock_comp && coarray && !lock_type)  in check_component()
3100   if (pointer && !coarray && event_type)  in check_component()
3105   else if (pointer && !coarray && c->ts.type == BT_DERIVED  in check_component()
3111   if (event_type && allocatable && !coarray)  in check_component()
3120   if (sym->attr.coarray_comp && !coarray && event_type)  in check_component()
3127   if (sym->attr.event_comp && coarray && !event_type)  in check_component()