Searched refs:cotype (Results 1 – 16 of 16) sorted by relevance
357 int n = as->rank + as->corank - (as->cotype == AS_EXPLICIT ? 1 : 0); in gfc_free_array_spec()716 as->cotype = current_type; in gfc_match_array_spec()718 switch (as->cotype) in gfc_match_array_spec()727 as->cotype = AS_ASSUMED_SIZE; in gfc_match_array_spec()754 as->cotype = AS_ASSUMED_SHAPE; in gfc_match_array_spec()792 if (as->cotype == AS_ASSUMED_SIZE) in gfc_match_array_spec()793 as->cotype = AS_EXPLICIT; in gfc_match_array_spec()796 as->type = as->cotype; in gfc_match_array_spec()873 sym->as->cotype = as->cotype; in gfc_set_array_spec()
1067 array_type type, cotype; member
996 to->cotype = from->cotype; in merge_array_spec()
4322 if (as->cotype == AS_DEFERRED || as->cotype == AS_ASSUMED_SHAPE) in simplify_cobound()
2755 as->cotype = (as->type == AS_DEFERRED) ? AS_DEFERRED : AS_EXPLICIT; in mio_array_spec()
10184 symtree->n.sym->as->cotype = AS_EXPLICIT; in resolve_critical()15895 && !class_attr.allocatable && as && as->cotype == AS_DEFERRED) in resolve_symbol()15902 && (as->cotype != AS_DEFERRED || as->type != AS_DEFERRED)) in resolve_symbol()
364 int n = as->rank + as->corank - (as->cotype == AS_EXPLICIT ? 1 : 0); in gfc_free_array_spec()723 as->cotype = current_type; in gfc_match_array_spec()725 switch (as->cotype) in gfc_match_array_spec()734 as->cotype = AS_ASSUMED_SIZE; in gfc_match_array_spec()761 as->cotype = AS_ASSUMED_SHAPE; in gfc_match_array_spec()799 if (as->cotype == AS_ASSUMED_SIZE) in gfc_match_array_spec()800 as->cotype = AS_EXPLICIT; in gfc_match_array_spec()803 as->type = as->cotype; in gfc_match_array_spec()880 sym->as->cotype = as->cotype; in gfc_set_array_spec()
1142 array_type type, cotype; member
200 (simplify_cobound): Obtain correct array_spec. Use cotype as2917 * module.c (mio_array_spec): Set as->cotype on reading.
4355 if (as->cotype == AS_DEFERRED || as->cotype == AS_ASSUMED_SHAPE) in simplify_cobound()
2906 as->cotype = (as->type == AS_DEFERRED) ? AS_DEFERRED : AS_EXPLICIT; in mio_array_spec()
10323 symtree->n.sym->as->cotype = AS_EXPLICIT; in resolve_critical()16119 && !class_attr.allocatable && as && as->cotype == AS_DEFERRED) in resolve_symbol()16126 && (as->cotype != AS_DEFERRED || as->type != AS_DEFERRED)) in resolve_symbol()
4822 * gfortran.h (gfc_array_spec): Add cotype.4826 (resolve_symbol): Add cotype/type check.
18825 … coid, cotype, sysna, syna, syid…
44085 cotype