Skip to content

Commit fd0133f

Browse files
committed
GNU formating and removed commented out code section
1 parent 13913ac commit fd0133f

File tree

1 file changed

+3
-8
lines changed

1 file changed

+3
-8
lines changed

gcc/fortran/trans-stmt.c

Lines changed: 3 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -735,16 +735,13 @@ gfc_trans_change_team (gfc_code *code)
735735
{
736736
gfc_se argse;
737737
tree team_type;
738-
/* gfc_init_se (&argse, NULL); */
739-
/* gfc_conv_expr_val (&argse, code->expr1); */
740-
/* team_id = fold_convert (integer_type_node, argse.expr); */
738+
741739
gfc_init_se (&argse, NULL);
742740
gfc_conv_expr_val (&argse, code->expr1);
743741
team_type = gfc_build_addr_expr (ppvoid_type_node, argse.expr);
744742

745743
return build_call_expr_loc (input_location,
746-
gfor_fndecl_caf_change_team, 2,
747-
team_type,
744+
gfor_fndecl_caf_change_team, 2, team_type,
748745
build_int_cst (integer_type_node, 0));
749746
}
750747
else
@@ -785,9 +782,7 @@ gfc_trans_sync_team (gfc_code *code)
785782
{
786783
gfc_se argse;
787784
tree team_type;
788-
/* gfc_init_se (&argse, NULL); */
789-
/* gfc_conv_expr_val (&argse, code->expr1); */
790-
/* team_id = fold_convert (integer_type_node, argse.expr); */
785+
791786
gfc_init_se (&argse, NULL);
792787
gfc_conv_expr_val (&argse, code->expr1);
793788
team_type = gfc_build_addr_expr (ppvoid_type_node, argse.expr);

0 commit comments

Comments
 (0)