From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sun, 12 Jan 2025 12:05:25 +0000 (+0100)
Subject: Fix union member access for EXEC_INQUIRE.
X-Git-Tag: basepoints/gcc-16~2722
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=40754a3b9bef83bf4da0675fcb378e8cd1675602;p=thirdparty%2Fgcc.git

Fix union member access for EXEC_INQUIRE.

gcc/fortran/ChangeLog:

	PR fortran/118432
	* frontend-passes.cc (doloop_code): Select correct member
	of co->ext.union for inquire.
---

diff --git a/gcc/fortran/frontend-passes.cc b/gcc/fortran/frontend-passes.cc
index 3a3328d4450..6ee6ce4c3ff 100644
--- a/gcc/fortran/frontend-passes.cc
+++ b/gcc/fortran/frontend-passes.cc
@@ -2552,7 +2552,7 @@ doloop_code (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED,
       break;
 
     case EXEC_INQUIRE:
-      if (co->ext.filepos->err)
+      if (co->ext.inquire->err)
 	seen_goto = true;
       break;