Lines Matching refs:fini_coarray
946 gfc_symbol *stat, gfc_symbol *fini_coarray, gfc_code **code, in finalize_component() argument
1016 block->expr1 = gfc_lval_expr_from_sym (fini_coarray); in finalize_component()
1088 finalize_component (e, comp->ts.u.derived, c, stat, fini_coarray, code, in finalize_component()
1596 gfc_symbol *final, *array, *fini_coarray, *byte_stride, *sizes, *strides; in generate_finalization_wrapper() local
1730 gfc_get_symbol ("fini_coarray", sub_ns, &fini_coarray); in generate_finalization_wrapper()
1731 fini_coarray->ts.type = BT_LOGICAL; in generate_finalization_wrapper()
1732 fini_coarray->ts.kind = 1; in generate_finalization_wrapper()
1733 fini_coarray->attr.flavor = FL_VARIABLE; in generate_finalization_wrapper()
1734 fini_coarray->attr.dummy = 1; in generate_finalization_wrapper()
1735 fini_coarray->attr.value = 1; in generate_finalization_wrapper()
1736 fini_coarray->attr.artificial = 1; in generate_finalization_wrapper()
1737 gfc_set_sym_referenced (fini_coarray); in generate_finalization_wrapper()
1739 final->formal->next->next->sym = fini_coarray; in generate_finalization_wrapper()
1740 gfc_commit_symbol (fini_coarray); in generate_finalization_wrapper()
2219 stat, fini_coarray, &block, sub_ns); in generate_finalization_wrapper()
2240 = gfc_lval_expr_from_sym (fini_coarray); in generate_finalization_wrapper()