[Bug fortran/99514] New: incorrect Error: Threadprivate at (1) isn't SAVEd ( implicit save via DATA initialization )

[markus.weiland at ipp dot mpg.de via Gcc-bugs]

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

            Bug ID: 99514
           Summary: incorrect Error: Threadprivate at (1) isn't SAVEd  (
                    implicit save via DATA initialization )
           Product: gcc
           Version: 9.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: markus.weiland at ipp dot mpg.de
  Target Milestone: ---

Created attachment 50347
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=50347&action=edit
minimal example source code to reproduce the error

Compiling the attached src file with:
gfortran -c src/minimal.f90 -fopenmp

gives the following error:

src/minimal.f90:7:12:

    7 |   DATA NTest /1/
      |            1
Error: Threadprivate at (1) isn't SAVEd


while compiling with ifort
ifort -c src/minimal.f90 -qopenmp

works without error.

I believe the ifort behavior is correct here, because the initialization of
NTest via DATA causes an implicit save, which seems not to be identified by
gfortran.