Lines Matching refs:common_block
3051 set_symbol_common_block (gfc_symbol *sym, gfc_common_head *common_block) in set_symbol_common_block() argument
3053 if (sym->common_block == common_block) in set_symbol_common_block()
3056 if (sym->common_block && sym->common_block->name[0] != '\0') in set_symbol_common_block()
3058 sym->common_block->refs--; in set_symbol_common_block()
3059 if (sym->common_block->refs == 0) in set_symbol_common_block()
3060 free (sym->common_block); in set_symbol_common_block()
3062 sym->common_block = common_block; in set_symbol_common_block()
3561 set_symbol_common_block (p, old->common_block); in restore_old_symbol()
3653 if (p->common_block in gfc_restore_last_undo_checkpoint()
3654 && (p->gfc_new || !p->old_symbol->common_block)) in gfc_restore_last_undo_checkpoint()
3659 if (p->common_block->head == p && !p->common_next) in gfc_restore_last_undo_checkpoint()
3663 p->common_block); in gfc_restore_last_undo_checkpoint()
3672 if (p->common_block->head == p) in gfc_restore_last_undo_checkpoint()
3673 p->common_block->head = p->common_next; in gfc_restore_last_undo_checkpoint()
3678 cparent = p->common_block->head; in gfc_restore_last_undo_checkpoint()