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

--- Comment #3 from Paul Thomas <pault at gcc dot gnu.org> ---
(In reply to Dominique d'Humieres from comment #2)
> The test compiles and executes if I remove the line
> 
>    public :: write (formatted)

Hi Walt and Dominique,

Should this be a syntax error or a quiet ignore? I have a patches that do
either.

The case of a generic interface, rather than a typebound generic, eg:

module dollar_mod

   implicit none
   private

   type, public :: dollar_type
      real :: amount
   end type dollar_type

   interface write(formatted)
      module procedure Write_dollar
   end interface

contains
  ....as before....

gives a runtime segfault for either explicit or implicit private attribute.

I'll need to track down how to give a compile time error for this case.

Cheers

Paul

Reply via email to