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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2017-02-22
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Confirmed with gfortran 6.3 and trunk (7.0). Reduced test

module my_mod
  interface
    module subroutine submod_test(x)
      real :: x
    end subroutine
  end interface

  private ! this line seems to be the one causing the problems
  public routine1

contains

  subroutine routine1(x)
    real :: x
    call submod_test(x)
  end subroutine

end module

submodule (my_mod) my_submod
use my_mod
contains
module procedure submod_test
  print *, x
end procedure
end submodule

Reply via email to