gcc/fortran/trans-openmp.c

37 #include "gimple-expr.h"
259 /* Unshare in expr anything that the FE which normally doesn't
265 gfc_omp_unshare_expr (tree expr)
267   walk_tree (&expr, gfc_omp_unshare_expr_r, NULL, NULL);
268   return expr;
1588       e4->value.function.actual->expr = e3;
1590       e4->value.function.actual->next->expr = e1;
1725 gfc_convert_expr_to_tree (stmtblock_t *block, gfc_expr *expr)
1731   gfc_conv_expr (&se, expr);
1733   result = gfc_evaluate_now (se.expr, block);
1808 		    if (n->expr)
1813 			  alignment_var = gfc_conv_constant_to_tree (n->expr);
1817 			    gfc_conv_expr (&se, n->expr);
1819 			    alignment_var = gfc_evaluate_now (se.expr, block);
1835 		if (n->expr)
1837 		    last_step_expr = n->expr;
1858 				last_step = gfc_evaluate_now (se.expr, block);
1880 	      if (n->expr == NULL || n->expr->ref->u.ar.type == AR_FULL)
1900 		  if (n->expr->ref->u.ar.type == AR_ELEMENT)
1902 		      gfc_conv_expr_reference (&se, n->expr);
1903 		      ptr = se.expr;
1907 		      gfc_conv_expr_descriptor (&se, n->expr);
1908 		      ptr = gfc_conv_array_data (se.expr);
1946 	      if (n->expr == NULL || n->expr->ref->u.ar.type == AR_FULL)
2048 		  if (n->expr->ref->u.ar.type == AR_ELEMENT)
2050 		      gfc_conv_expr_reference (&se, n->expr);
2052 		      ptr = se.expr;
2058 		      gfc_conv_expr_descriptor (&se, n->expr);
2059 		      ptr = gfc_conv_array_data (se.expr);
2060 		      tree type = TREE_TYPE (se.expr);
2063 			= gfc_full_array_size (block, se.expr,
2178 	      if (n->expr == NULL || n->expr->ref->u.ar.type == AR_FULL)
2208 		  if (n->expr->ref->u.ar.type == AR_ELEMENT)
2210 		      gfc_conv_expr_reference (&se, n->expr);
2211 		      ptr = se.expr;
2218 		      gfc_conv_expr_descriptor (&se, n->expr);
2219 		      ptr = gfc_conv_array_data (se.expr);
2220 		      tree type = TREE_TYPE (se.expr);
2223 			= gfc_full_array_size (block, se.expr,
2252       if_var = gfc_evaluate_now (se.expr, block);
2267       final_var = gfc_evaluate_now (se.expr, block);
2282       num_threads = gfc_evaluate_now (se.expr, block);
2296       chunk_size = gfc_evaluate_now (se.expr, block);
2443       safelen_var = gfc_evaluate_now (se.expr, block);
2466       num_teams = gfc_evaluate_now (se.expr, block);
2481       device = gfc_evaluate_now (se.expr, block);
2496       thread_limit = gfc_evaluate_now (se.expr, block);
2510       chunk_size = gfc_evaluate_now (se.expr, block);
2548 	  OMP_CLAUSE_DECL (c) = gfc_convert_expr_to_tree (block, el->expr);
2753     args->quick_push (gfc_convert_expr_to_tree (&block, el->expr));
2794     expr2 = expr2->value.function.actual->expr;
2804       type = TREE_TYPE (lse.expr);
2805       lhsaddr = gfc_build_addr_expr (NULL, lse.expr);
2809       x = convert (TREE_TYPE (vse.expr), x);
2810       gfc_add_modify (&block, vse.expr, x);
2832 	    expr2 = expr2->value.function.actual->expr;
2841   type = TREE_TYPE (lse.expr);
2842   lhsaddr = gfc_build_addr_expr (NULL, lse.expr);
2889 	e = e->value.function.actual->expr;
2902 	    e = e->value.function.actual->expr;
2935       e = expr2->value.function.actual->expr;
2940       gfc_conv_expr (&rse, expr2->value.function.actual->next->expr);
2944 	  tree accum = gfc_create_var (TREE_TYPE (rse.expr), NULL);
2947 	  gfc_add_modify (&block, accum, rse.expr);
2952 	      gfc_conv_expr (&rse, arg->expr);
2955 				   accum, rse.expr);
2959 	  rse.expr = accum;
2962       expr2 = expr2->value.function.actual->next->expr;
2978   rhs = gfc_evaluate_now (rse.expr, &block);
3016 	    expr2 = expr2->value.function.actual->expr;
3028       x = convert (TREE_TYPE (vse.expr), x);
3029       gfc_add_modify (&block, vse.expr, x);
3065       if_var = gfc_evaluate_now (se.expr, &block);
3177       dovar = se.expr;
3184       from = gfc_evaluate_now (se.expr, pblock);
3189       to = gfc_evaluate_now (se.expr, pblock);
3194       step = gfc_evaluate_now (se.expr, pblock);