@@ -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