Home | History | Annotate | Download | only in fortran

Lines Matching defs:atom_expr

11585   gfc_expr *atom_expr = code->ext.actual->expr;
11589   if (atom_expr->expr_type == EXPR_FUNCTION
11590       && atom_expr->value.function.isym
11591       && atom_expr->value.function.isym->id == GFC_ISYM_CAF_GET)
11592     atom_expr = atom_expr->value.function.actual->expr;
11599   gfc_conv_expr (&argse, atom_expr);
11606       && code->ext.actual->next->expr->ts.kind == atom_expr->ts.kind)
11680       caf_decl = gfc_get_tree_for_caf_expr (atom_expr);
11684       if (gfc_is_coindexed (atom_expr))
11685 	image_index = gfc_caf_get_image_index (&block, atom_expr, caf_decl);
11698 				atom_expr);
11705 						  (int) atom_expr->ts.type),
11707 atom_expr->ts.kind));
11713 						  (int) atom_expr->ts.type),
11715 						  (int) atom_expr->ts.kind));
11790   gfc_expr *atom_expr = code->ext.actual->next->expr;
11792   if (atom_expr->expr_type == EXPR_FUNCTION
11793       && atom_expr->value.function.isym
11794       && atom_expr->value.function.isym->id == GFC_ISYM_CAF_GET)
11795     atom_expr = atom_expr->value.function.actual->expr;
11801   gfc_conv_expr (&argse, atom_expr);
11808       && code->ext.actual->expr->ts.kind == atom_expr->ts.kind)
11836       caf_decl = gfc_get_tree_for_caf_expr (atom_expr);
11840       if (gfc_is_coindexed (atom_expr))
11841 	image_index = gfc_caf_get_image_index (&block, atom_expr, caf_decl);
11847 				atom_expr);
11861 						(int) atom_expr->ts.type),
11863 						(int) atom_expr->ts.kind));
11897   gfc_expr *atom_expr = code->ext.actual->expr;
11899   if (atom_expr->expr_type == EXPR_FUNCTION
11900       && atom_expr->value.function.isym
11901       && atom_expr->value.function.isym->id == GFC_ISYM_CAF_GET)
11902     atom_expr = atom_expr->value.function.actual->expr;
11908   gfc_conv_expr (&argse, atom_expr);
11930 	 == atom_expr->ts.kind)
11958       caf_decl = gfc_get_tree_for_caf_expr (atom_expr);
11962       if (gfc_is_coindexed (atom_expr))
11963 	image_index = gfc_caf_get_image_index (&block, atom_expr, caf_decl);
11984 				atom_expr);
11990 						      (int) atom_expr->ts.type),
11992 						(int) atom_expr->ts.kind));