gcc/fortran/trans-intrinsic.c

8675   tree fndecl, array, strlen, image_index, stat, errmsg, errmsg_len;
8696   /* stat.  */
8703       stat = argse.expr;
8705 	stat = gfc_build_addr_expr (NULL_TREE, stat);
8708     stat = NULL_TREE;
8710     stat = null_pointer_node;
8715       if (stat != NULL_TREE)
8716 	gfc_add_modify (&block, stat,
8717 			fold_convert (TREE_TYPE (stat), integer_zero_node));
8801 				  image_index, stat, errmsg, errmsg_len);
8804 				  stat, errmsg, strlen, errmsg_len);
8837 				    image_index, stat, errmsg, strlen, errmsg_len);
8851   tree tmp, atom, value, old = NULL_TREE, stat = NULL_TREE;
8913       stat = argse.expr;
8916     stat = null_pointer_node;
8968 				   token, offset, image_index, value, stat,
8976 				   token, offset, image_index, value, old, stat,
9041   if (stat != NULL_TREE)
9042     gfc_add_modify (&block, stat, build_int_cst (TREE_TYPE (stat), 0));
9052   tree tmp, atom, value, stat = NULL_TREE;
9091       stat = argse.expr;
9094     stat = null_pointer_node;
9121 				 token, offset, image_index, value, stat,
9144   if (stat != NULL_TREE)
9145     gfc_add_modify (&block, stat, build_int_cst (TREE_TYPE (stat), 0));
9155   tree tmp, atom, old, new_val, comp, stat = NULL_TREE;
9210       stat = argse.expr;
9213     stat = null_pointer_node;
9247 				 stat, build_int_cst (integer_type_node,
9271   if (stat != NULL_TREE)
9272     gfc_add_modify (&block, stat, build_int_cst (TREE_TYPE (stat), 0));
9281   tree stat = NULL_TREE, stat2 = NULL_TREE;
9292       stat = argse.expr;
9295     stat = null_pointer_node;
9392       if (stat != null_pointer_node && TREE_TYPE (stat) != integer_type_node)
9394 	  stat2 = stat;
9395 	  stat = gfc_create_var (integer_type_node, "stat");
9401 				   stat != null_pointer_node
9402 				   ? gfc_build_addr_expr (NULL, stat) : stat);
9411 			fold_convert (TREE_TYPE (stat2), stat));
9420   if (stat != NULL_TREE)
9421     gfc_add_modify (&se.pre, stat, build_int_cst (TREE_TYPE (stat), 0));