gcc/fortran/trans-stmt.c

694   tree stat = NULL_TREE, stat2 = NULL_TREE;
707       stat = argse.expr;
710     stat = null_pointer_node;
809       if (stat != null_pointer_node && TREE_TYPE (stat) != integer_type_node)
811 	  stat2 = stat;
812 	  stat = gfc_create_var (integer_type_node, "stat");
828 				   stat != null_pointer_node
829 				   ? gfc_build_addr_expr (NULL, stat) : stat,
834 				   stat != null_pointer_node
835 				   ? gfc_build_addr_expr (NULL, stat) : stat,
852 			fold_convert (TREE_TYPE (stat2), stat));
862   if (stat != NULL_TREE)
863     gfc_add_modify (&se.pre, stat, build_int_cst (TREE_TYPE (stat), 0));
877   tree stat = NULL_TREE, stat2 = NULL_TREE;
885       stat = argse.expr;
888     stat = null_pointer_node;
916       if (stat != NULL_TREE)
917 	gfc_add_modify (&se.pre, stat, build_int_cst (TREE_TYPE (stat), 0));
1007   if (stat != null_pointer_node && TREE_TYPE (stat) != integer_type_node)
1009       stat2 = stat;
1010       stat = gfc_create_var (integer_type_node, "stat");
1016 			       stat != null_pointer_node
1017 			       ? gfc_build_addr_expr (NULL, stat) : stat,
1022 			       stat != null_pointer_node
1023 			       ? gfc_build_addr_expr (NULL, stat) : stat,
1028     gfc_add_modify (&se.pre, stat2, fold_convert (TREE_TYPE (stat2), stat));
1038   tree images = NULL_TREE, stat = NULL_TREE,
1062       stat = argse.expr;
1065     stat = null_pointer_node;
1130 	gfc_add_modify (&se.pre, stat, build_int_cst (TREE_TYPE (stat), 0));
1134       /* SYNC ALL           =>   stat == null_pointer_node
1135 	 SYNC ALL(stat=s)   =>   stat has an integer type
1137 	 If "stat" has the wrong integer type, use a temp variable of
1138 	 the right type and later cast the result back into "stat".  */
1139       if (stat == null_pointer_node || TREE_TYPE (stat) == integer_type_node)
1141 	  if (TREE_TYPE (stat) == integer_type_node)
1142 	    stat = gfc_build_addr_expr (NULL, stat);
1146 				       3, stat, errmsg, errmsglen);
1149 				       3, stat, errmsg, errmsglen);
1155 	  tree tmp_stat = gfc_create_var (integer_type_node, "stat");
1162 	  gfc_add_modify (&se.pre, stat,
1163 			  fold_convert (TREE_TYPE (stat), tmp_stat));
1204       /* SYNC IMAGES(imgs)        => stat == null_pointer_node
1205 	 SYNC IMAGES(imgs,stat=s) => stat has an integer type
1207 	 If "stat" has the wrong integer type, use a temp variable of
1208 	 the right type and later cast the result back into "stat".  */
1209       if (stat == null_pointer_node || TREE_TYPE (stat) == integer_type_node)
1211 	  if (TREE_TYPE (stat) == integer_type_node)
1212 	    stat = gfc_build_addr_expr (NULL, stat);
1216 				     images, stat, errmsg, errmsglen);
1221 	  tree tmp_stat = gfc_create_var (integer_type_node, "stat");
1229 	  gfc_add_modify (&se.pre, stat,
1230 			  fold_convert (TREE_TYPE (stat), tmp_stat));
5289   tree stat;
5312   stat = tmp = memsz = al_vptr = al_len = NULL_TREE;
5324       stat = gfc_create_var (gfc_int4_type_node, "stat");
5734       if (!gfc_array_allocate (&se, expr, stat, errmsg, errlen,
5817 				      stat, errmsg, errlen, label_finish,
5820 	    gfc_allocate_using_malloc (&se.pre, se.expr, memsz, stat);
5865 				  boolean_type_node, stat,
5866 				  build_int_cst (TREE_TYPE (stat), 0));
6155 			     stat, build_int_cst (TREE_TYPE (stat), 0));
6174       tmp = convert (TREE_TYPE (se.expr), stat);
6192   tree apstat, pstat, stat, errmsg, errlen, tmp;
6196   pstat = apstat = stat = errmsg = errlen = tmp = NULL_TREE;
6208       stat = gfc_create_var (gfc_int4_type_node, "stat");
6209       pstat = gfc_build_addr_expr (NULL_TREE, stat);
6337 	  cond = fold_build2_loc (input_location, NE_EXPR, boolean_type_node, stat,
6338 				  build_int_cst (TREE_TYPE (stat), 0));
6377       cond = fold_build2_loc (input_location, NE_EXPR, boolean_type_node, stat,
6378 			     build_int_cst (TREE_TYPE (stat), 0));
6397       tmp = convert (TREE_TYPE (se.expr), stat);