[gcc r15-6831] Fix union member access for EXEC_INQUIRE.

[Thomas Kﾃｶnig via Gcc-cvs]

https://gcc.gnu.org/g:40754a3b9bef83bf4da0675fcb378e8cd1675602

commit r15-6831-g40754a3b9bef83bf4da0675fcb378e8cd1675602
Author: Thomas Koenig <tkoe...@gcc.gnu.org>
Date:   Sun Jan 12 13:05:25 2025 +0100

    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:
---
 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;