https://gcc.gnu.org/bugzilla/show_bug.cgi?id=122670
Paul Thomas <pault at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Blocks| |82173
Status|UNCONFIRMED |NEW
Ever confirmed|0 |1
Last reconfirmed| |2025-11-13
CC| |damian at archaeologic dot
codes,
| |jvdelisle at gcc dot gnu.org
--- Comment #1 from Paul Thomas <pault at gcc dot gnu.org> ---
Confirmed.
diff --git a/gcc/fortran/module.cc b/gcc/fortran/module.cc
index c489decec8d..cb8f896988a 100644
--- a/gcc/fortran/module.cc
+++ b/gcc/fortran/module.cc
@@ -5827,6 +5827,10 @@ read_module (void)
|| startswith (name, "__vtype_")))
p = name;
+ if (p == NULL && name[0] == 'P'
+ && startswith (name, "Pdt"))
+ p = name;
+
/* Skip symtree nodes not in an ONLY clause, unless there
is an existing symtree loaded from another USE statement. */
if (p == NULL)
is an abomination but allows compilation of fiats proceed to
test/neural_network_test_m.F90 with the workaround in
concurrent-inferences.f90.
Cheers
Paul
Referenced Bugs:
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82173
[Bug 82173] [meta-bug] [PDT] Parameterized derived type errors
