Lines Matching refs:atom_expr
11234 gfc_expr *atom_expr = code->ext.actual->expr; in conv_intrinsic_atomic_op() local
11238 if (atom_expr->expr_type == EXPR_FUNCTION in conv_intrinsic_atomic_op()
11239 && atom_expr->value.function.isym in conv_intrinsic_atomic_op()
11240 && atom_expr->value.function.isym->id == GFC_ISYM_CAF_GET) in conv_intrinsic_atomic_op()
11241 atom_expr = atom_expr->value.function.actual->expr; in conv_intrinsic_atomic_op()
11248 gfc_conv_expr (&argse, atom_expr); in conv_intrinsic_atomic_op()
11255 && code->ext.actual->next->expr->ts.kind == atom_expr->ts.kind) in conv_intrinsic_atomic_op()
11329 caf_decl = gfc_get_tree_for_caf_expr (atom_expr); in conv_intrinsic_atomic_op()
11333 if (gfc_is_coindexed (atom_expr)) in conv_intrinsic_atomic_op()
11334 image_index = gfc_caf_get_image_index (&block, atom_expr, caf_decl); in conv_intrinsic_atomic_op()
11347 atom_expr); in conv_intrinsic_atomic_op()
11354 (int) atom_expr->ts.type), in conv_intrinsic_atomic_op()
11356 (int) atom_expr->ts.kind)); in conv_intrinsic_atomic_op()
11362 (int) atom_expr->ts.type), in conv_intrinsic_atomic_op()
11364 (int) atom_expr->ts.kind)); in conv_intrinsic_atomic_op()
11439 gfc_expr *atom_expr = code->ext.actual->next->expr; in conv_intrinsic_atomic_ref() local
11441 if (atom_expr->expr_type == EXPR_FUNCTION in conv_intrinsic_atomic_ref()
11442 && atom_expr->value.function.isym in conv_intrinsic_atomic_ref()
11443 && atom_expr->value.function.isym->id == GFC_ISYM_CAF_GET) in conv_intrinsic_atomic_ref()
11444 atom_expr = atom_expr->value.function.actual->expr; in conv_intrinsic_atomic_ref()
11450 gfc_conv_expr (&argse, atom_expr); in conv_intrinsic_atomic_ref()
11457 && code->ext.actual->expr->ts.kind == atom_expr->ts.kind) in conv_intrinsic_atomic_ref()
11485 caf_decl = gfc_get_tree_for_caf_expr (atom_expr); in conv_intrinsic_atomic_ref()
11489 if (gfc_is_coindexed (atom_expr)) in conv_intrinsic_atomic_ref()
11490 image_index = gfc_caf_get_image_index (&block, atom_expr, caf_decl); in conv_intrinsic_atomic_ref()
11496 atom_expr); in conv_intrinsic_atomic_ref()
11510 (int) atom_expr->ts.type), in conv_intrinsic_atomic_ref()
11512 (int) atom_expr->ts.kind)); in conv_intrinsic_atomic_ref()
11546 gfc_expr *atom_expr = code->ext.actual->expr; in conv_intrinsic_atomic_cas() local
11548 if (atom_expr->expr_type == EXPR_FUNCTION in conv_intrinsic_atomic_cas()
11549 && atom_expr->value.function.isym in conv_intrinsic_atomic_cas()
11550 && atom_expr->value.function.isym->id == GFC_ISYM_CAF_GET) in conv_intrinsic_atomic_cas()
11551 atom_expr = atom_expr->value.function.actual->expr; in conv_intrinsic_atomic_cas()
11557 gfc_conv_expr (&argse, atom_expr); in conv_intrinsic_atomic_cas()
11579 == atom_expr->ts.kind) in conv_intrinsic_atomic_cas()
11607 caf_decl = gfc_get_tree_for_caf_expr (atom_expr); in conv_intrinsic_atomic_cas()
11611 if (gfc_is_coindexed (atom_expr)) in conv_intrinsic_atomic_cas()
11612 image_index = gfc_caf_get_image_index (&block, atom_expr, caf_decl); in conv_intrinsic_atomic_cas()
11633 atom_expr); in conv_intrinsic_atomic_cas()
11639 (int) atom_expr->ts.type), in conv_intrinsic_atomic_cas()
11641 (int) atom_expr->ts.kind)); in conv_intrinsic_atomic_cas()