Fortran: remove dead code [PR104321]

gcc/fortran/ChangeLog:

	PR fortran/104321
	* trans-decl.cc (gfc_conv_cfi_to_gfc): Remove dead code.
This commit is contained in:
Harald Anlauf 2023-03-25 19:59:45 +01:00
parent d495ea2b23
commit b5fce899db

View file

@ -7165,9 +7165,6 @@ gfc_conv_cfi_to_gfc (stmtblock_t *init, stmtblock_t *finally,
size_var, LT_EXPR, build_int_cst (TREE_TYPE (idx), 1),
gfc_finish_block (&loop_body));
/* if (cond) { block2 } */
tmp = fold_build2_loc (input_location, MODIFY_EXPR, void_type_node,
data, fold_convert (TREE_TYPE (data),
null_pointer_node));
tmp = build3_v (COND_EXPR, cond_var, gfc_finish_block (&block2),
build_empty_stmt (input_location));
gfc_add_expr_to_block (&block, tmp);