From: Christopher Albert <albert@tugraz.at>
Date: Tue, 10 Mar 2026 23:19:25 +0000 (+0100)
Subject: fortran: Add testcase [PR84779]
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=d0128de52fc637efd768d28dbd4edb7bc680a97b;p=thirdparty%2Fgcc.git

fortran: Add testcase [PR84779]

The reproducer from the bug report compiles cleanly on current
trunk.  Add a testcase to prevent future regressions.

	PR fortran/84779

gcc/testsuite/ChangeLog:

	PR fortran/84779
	* gfortran.dg/pr84779.f90: New test.

Signed-off-by: Christopher Albert <albert@tugraz.at>
---

diff --git a/gcc/testsuite/gfortran.dg/pr84779.f90 b/gcc/testsuite/gfortran.dg/pr84779.f90
new file mode 100644
index 00000000000..dfddf417dfb
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr84779.f90
@@ -0,0 +1,18 @@
+! { dg-do compile }
+! { dg-additional-options "-O1 -fdefault-integer-8" }
+! PR fortran/84779
+! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
+!
+! ICE with -O1 -fdefault-integer-8 on mixed ENTRY with complex/logical results.
+
+      complex function f2 (a)
+      implicit none
+      integer   a
+      logical   e2
+      entry e2 (a)
+      if (a > 0) then
+        e2 = .true.
+      else
+        f2 = 45
+      endif
+      end