Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/51809

!

! Contributed by Kacper Kowalik

!

module foo

   implicit none

   type foo_t

   contains

      procedure :: func_foo

   end type foo_t

contains

   subroutine func_foo(this)

      implicit none

      class(foo_t), intent(in) :: this

   end subroutine func_foo

end module foo

module bar

   use foo,   only: foo_t

   implicit none

   type, extends(foo_t) :: bar_t

   contains

      procedure :: func_bar

   end type bar_t

contains

   subroutine func_bar(this)

      use foo,    only: foo_t     ! <--- removing this line also fixes ICE

      implicit none

      class(bar_t), intent(in) :: this

   end subroutine func_bar

end module bar

module merry_ICE

   use foo,  only: foo_t   ! <------ change order to prevent ICE

   use bar,  only: bar_t   ! <------ change order to prevent ICE

end module merry_ICE

! { dg-final { cleanup-modules "foo bar merry_ice" } }