Searched refs:vptr_expr (Results 1 – 7 of 7) sorted by relevance
1273 gfc_expr *vptr_expr; in gfc_add_finalizer_call() local1275 vptr_expr = gfc_copy_expr (expr); in gfc_add_finalizer_call()1276 gfc_add_vptr_component (vptr_expr); in gfc_add_finalizer_call()1280 gfc_conv_expr (&se, vptr_expr); in gfc_add_finalizer_call()1281 gfc_free_expr (vptr_expr); in gfc_add_finalizer_call()
1346 gfc_expr *vptr_expr; in gfc_add_finalizer_call() local1348 vptr_expr = gfc_copy_expr (expr); in gfc_add_finalizer_call()1349 gfc_add_vptr_component (vptr_expr); in gfc_add_finalizer_call()1353 gfc_conv_expr (&se, vptr_expr); in gfc_add_finalizer_call()1354 gfc_free_expr (vptr_expr); in gfc_add_finalizer_call()
9104 gfc_expr * vptr_expr; in trans_class_vptr_len_assignment() local9141 if (vptr_expr != NULL && gfc_expr_attr (vptr_expr).class_ok) in trans_class_vptr_len_assignment()9144 if (UNLIMITED_POLY (vptr_expr) in trans_class_vptr_len_assignment()9154 gfc_conv_expr (&se, vptr_expr); in trans_class_vptr_len_assignment()9155 gfc_free_expr (vptr_expr); in trans_class_vptr_len_assignment()9170 if (vptr_expr != NULL && vptr_expr->ts.type == BT_CLASS) in trans_class_vptr_len_assignment()9191 vptr_expr = NULL; in trans_class_vptr_len_assignment()9200 vptr_expr = NULL; in trans_class_vptr_len_assignment()9222 if (vptr_expr) in trans_class_vptr_len_assignment()9226 gfc_conv_expr (&se, vptr_expr); in trans_class_vptr_len_assignment()[all …]
9640 gfc_expr * vptr_expr; in trans_class_vptr_len_assignment() local9677 if (vptr_expr != NULL && gfc_expr_attr (vptr_expr).class_ok) in trans_class_vptr_len_assignment()9680 if (UNLIMITED_POLY (vptr_expr) in trans_class_vptr_len_assignment()9690 gfc_conv_expr (&se, vptr_expr); in trans_class_vptr_len_assignment()9691 gfc_free_expr (vptr_expr); in trans_class_vptr_len_assignment()9706 if (vptr_expr != NULL && vptr_expr->ts.type == BT_CLASS) in trans_class_vptr_len_assignment()9727 vptr_expr = NULL; in trans_class_vptr_len_assignment()9736 vptr_expr = NULL; in trans_class_vptr_len_assignment()9758 if (vptr_expr) in trans_class_vptr_len_assignment()9762 gfc_conv_expr (&se, vptr_expr); in trans_class_vptr_len_assignment()[all …]
680 * trans-expr.c (trans_class_vptr_len_assignment): 'vptr_expr'