gcc/testsuite/gfortran.dg/use_rename_10.f90

! { dg-do compile }
!
! PR fortran/92736
!
! Contributed by Chinoune Mehdi
!
module m1
  implicit none
  integer, parameter :: i = 10
end module m1

module m2
  use m1, only : i
  implicit none
  interface
    module subroutine sb1()
    end subroutine sb1
  end interface
end module m2

submodule(m2) s1
  use m1, only : i
  implicit none
contains
  module subroutine sb1
    print *,"hello", i
  end subroutine sb1
end submodule s1