gcc/fortran/parse.c

2974   bool coarray, lock_type, event_type, allocatable, pointer;
2975   coarray = lock_type = event_type = allocatable = pointer = false;
3008   /* Looking for coarray components.  */
3013       coarray = true;
3020       coarray = true;
3059      (5.3.14) and that subobjects of coarray are coarray themselves (2.4.7),
3063   if (pointer && !coarray && lock_type)
3065                "codimension or be a subcomponent of a coarray, "
3068   else if (pointer && !coarray && c->ts.type == BT_DERIVED
3072                "subcomponent of a coarray", c->name, &c->loc);
3074   if (lock_type && allocatable && !coarray)
3083   if (sym->attr.coarray_comp && !coarray && lock_type)
3086                "be a subcomponent of a coarray. (Variables of type %s may "
3087                "not have a codimension as already a coarray "
3090   if (sym->attr.lock_comp && coarray && !lock_type)
3093                "be a subcomponent of a coarray. (Variables of type %s may "
3095                "coarray subcomponent)", lock_comp->name, &lock_comp->loc,
3100   if (pointer && !coarray && event_type)
3102                "codimension or be a subcomponent of a coarray, "
3105   else if (pointer && !coarray && c->ts.type == BT_DERIVED
3109                "subcomponent of a coarray", c->name, &c->loc);
3111   if (event_type && allocatable && !coarray)
3120   if (sym->attr.coarray_comp && !coarray && event_type)
3123                "be a subcomponent of a coarray. (Variables of type %s may "
3124                "not have a codimension as already a coarray "
3127   if (sym->attr.event_comp && coarray && !event_type)
3130                "be a subcomponent of a coarray. (Variables of type %s may "
3132                "coarray subcomponent)", event_comp->name, &event_comp->loc,