diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2025-01-12 13:05:25 +0100 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2025-01-12 13:06:36 +0100 |
| commit | 40754a3b9bef83bf4da0675fcb378e8cd1675602 (patch) | |
| tree | df5ce22bf87a4b1ad721f5c1bfec4c97809fe4cc | |
| parent | bedf26c201894d340a4eb61927879fd0d82e3102 (diff) | |
| download | gcc-40754a3b9bef83bf4da0675fcb378e8cd1675602.zip gcc-40754a3b9bef83bf4da0675fcb378e8cd1675602.tar.gz gcc-40754a3b9bef83bf4da0675fcb378e8cd1675602.tar.bz2 | |
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.
| -rw-r--r-- | gcc/fortran/frontend-passes.cc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/frontend-passes.cc b/gcc/fortran/frontend-passes.cc index 3a3328d..6ee6ce4 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; |