[Bug fortran/80156] New: Generic DTIO interface reported missing if public statement preceeds the interface block

[pedsxing at gmx dot net]

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

            Bug ID: 80156
           Summary: Generic DTIO interface reported missing if public
                    statement preceeds the interface block
           Product: gcc
           Version: 7.0.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: pedsxing at gmx dot net
  Target Milestone: ---

Created attachment 41025
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=41025&action=edit
Module that fails to compile with gfortran 7.0.1 (r152875)

gfortran 7.0.1 (r152875) fails to compile the attached module that uses derived
type IO. The error message is:

ftlString.F90:10:31:

    public :: write(unformatted) ! has to be after the interface block for
gfortran 7 ... compiler bug?
                               1
Error: The GENERIC DTIO INTERFACE at (1) is not present in the MODULE
'stringmodule'

Moving the reported line below the definition of the interface block fixes the
problem, but I believe that the order should be irrelevant.