From 9d6071ae0dbe3d34eeda0fcc5f88bf1ae884a907 Mon Sep 17 00:00:00 2001
From: Yuao Ma <c8ef@outlook.com>
Date: Wed, 29 Oct 2025 23:40:18 +0800
Subject: [PATCH] fortran: remove redundant code related to constant pointer

This part is unreachable after r16-4474-g2c1949bf152f8f.

gcc/fortran/ChangeLog:

	* trans-expr.cc (gfc_conv_gfc_desc_to_cfi_desc): Remove unreachable
	code.
---
 gcc/fortran/trans-expr.cc | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 67b60c78aa7..2e88e65b6b8 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -6090,9 +6090,6 @@ gfc_conv_gfc_desc_to_cfi_desc (gfc_se *parmse, gfc_expr *e, gfc_symbol *fsym)
       se.want_pointer = 1;
       gfc_conv_expr (&se, e);
       gfc = se.expr;
-      /* gfc_conv_constant ignores se.want_poiner, e.g. for string_cst.  */
-      if (!POINTER_TYPE_P (TREE_TYPE (gfc)))
-	gfc = gfc_build_addr_expr (NULL, gfc);
     }
   else
     {
-- 
2.43.0

