[Bug fortran/120107] [15/16 regression] -fc-prototypes for ISO_FORTRAN_ENV generates duplicate typedefs

[sjames at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=120107

Sam James <sjames at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |15.2
             Status|UNCONFIRMED                 |NEW
            Summary|-fc-prototypes for          |[15/16 regression]
                   |ISO_FORTRAN_ENV generates   |-fc-prototypes for
                   |duplicate typedefs          |ISO_FORTRAN_ENV generates
                   |                            |duplicate typedefs
     Ever confirmed|0                           |1
   Last reconfirmed|                            |2025-05-05

--- Comment #1 from Sam James <sjames at gcc dot gnu.org> ---
$ diff -u <(gfortran-14 -fc-prototypes -c a.f90) <(gfortran-15 -fc-prototypes
-c a.f90)
--- /dev/fd/63  2025-05-05 08:14:56.053129049 +0100
+++ /dev/fd/62  2025-05-05 08:14:56.056129085 +0100
@@ -11,6 +11,24 @@
 #define __GFORTRAN_LONG_DOUBLE_COMPLEX long double _Complex
 #endif

+typedef struct event_type {
+} event_type;
+
+typedef struct lock_type {
+} lock_type;
+
+typedef struct team_type {
+} team_type;
+
+typedef struct event_type {
+} event_type;
+
+typedef struct lock_type {
+} lock_type;
+
+typedef struct team_type {
+} team_type;
+

 #ifdef __cplusplus
 }