From 40754a3b9bef83bf4da0675fcb378e8cd1675602 Mon Sep 17 00:00:00 2001
From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sun, 12 Jan 2025 13:05:25 +0100
Subject: [PATCH] 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.
---
 gcc/fortran/frontend-passes.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/frontend-passes.cc b/gcc/fortran/frontend-passes.cc
index 3a3328d44508..6ee6ce4c3ff1 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;
 
-- 
2.47.2