From 076f0b6f873b9e85fae043fddfab248b8c852042 Mon Sep 17 00:00:00 2001
From: Mikael Morin <mikael@gcc.gnu.org>
Date: Wed, 15 Oct 2025 19:17:51 +0200
Subject: [PATCH] =?UTF-8?q?Correction=20r=C3=A9gression=20coarray=5Falloc?=
 =?UTF-8?q?=5Fcomp=5F2.f08?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 gcc/fortran/trans-intrinsic.cc | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-intrinsic.cc b/gcc/fortran/trans-intrinsic.cc
index d7f4441b0edb..7c2ec4e14eb5 100644
--- a/gcc/fortran/trans-intrinsic.cc
+++ b/gcc/fortran/trans-intrinsic.cc
@@ -1270,7 +1270,16 @@ contiguous_array (gfc_expr *expr)
 {
   gfc_ref *ref;
 
-  gcc_assert (expr && expr->expr_type == EXPR_VARIABLE);
+  gcc_assert (expr);
+
+  if (expr->expr_type == EXPR_FUNCTION
+      && expr->value.function.esym
+      && expr->value.function.esym->result
+      && expr->value.function.esym->result->attr.pointer)
+    return false;
+
+  if (expr->expr_type != EXPR_VARIABLE)
+    return true;
 
   bool contiguous = true;
   if (expr->symtree->n.sym->ts.type == BT_CLASS