gcc/fortran/check.c

1018 		  gfc_expr *stat, int stat_no)
1049   if (stat != NULL)
1051       if (!type_check (stat, stat_no, BT_INTEGER))
1053       if (!scalar_check (stat, stat_no))
1055       if (!variable_check (stat, stat_no, false))
1057       if (!kind_value_check (stat, stat_no, gfc_default_integer_kind))
1061 			   gfc_current_intrinsic, &stat->where))
1070 gfc_check_atomic_def (gfc_expr *atom, gfc_expr *value, gfc_expr *stat)
1084   return gfc_check_atomic (atom, 0, value, 1, stat, 2);
1089 gfc_check_atomic_op (gfc_expr *atom, gfc_expr *value, gfc_expr *stat)
1099   return gfc_check_atomic_def (atom, value, stat);
1104 gfc_check_atomic_ref (gfc_expr *value, gfc_expr *atom, gfc_expr *stat)
1118   return gfc_check_atomic (atom, 1, value, 0, stat, 2);
1124 		      gfc_expr *new_val,  gfc_expr *stat)
1131   if (!gfc_check_atomic (atom, 0, new_val, 3, stat, 4))
1161 gfc_check_event_query (gfc_expr *event, gfc_expr *count, gfc_expr *stat)
1196   if (stat != NULL)
1198       if (!type_check (stat, 2, BT_INTEGER))
1200       if (!scalar_check (stat, 2))
1202       if (!variable_check (stat, 2, false))
1206 			   gfc_current_intrinsic, &stat->where))
1216 			   gfc_expr *stat)
1231   if (!gfc_check_atomic (atom, 0, value, 1, stat, 3))
1479 check_co_collective (gfc_expr *a, gfc_expr *image_idx, gfc_expr *stat,
1513   if (stat != NULL)
1515       if (!type_check (stat, co_reduce ? 3 : 2, BT_INTEGER))
1517       if (!scalar_check (stat, co_reduce ? 3 : 2))
1519       if (!variable_check (stat, co_reduce ? 3 : 2, false))
1521       if (stat->ts.kind != 4)
1523 	  gfc_error ("The stat= argument at %L must be a kind=4 integer "
1524 		     "variable", &stat->where);
1557 gfc_check_co_broadcast (gfc_expr *a, gfc_expr *source_image, gfc_expr *stat,
1567   return check_co_collective (a, source_image, stat, errmsg, false);
1573 		     gfc_expr *stat, gfc_expr *errmsg)
1593   if (!check_co_collective (a, result_image, stat, errmsg, true))
1738 gfc_check_co_minmax (gfc_expr *a, gfc_expr *result_image, gfc_expr *stat,
1750   return check_co_collective (a, result_image, stat, errmsg, false);
1755 gfc_check_co_sum (gfc_expr *a, gfc_expr *result_image, gfc_expr *stat,
1760   return check_co_collective (a, result_image, stat, errmsg, false);