!RUN: %flang -fsyntax-only %s 2>&1 | FileCheck --allow-empty %s
!Ensure no bogus error message about incompatible character length
!CHECK-NOT: error

module m1
  integer :: n = 1
end

module m2
  interface
    module subroutine s(a,b)
      use m1
      character(n) :: a
      character(n) :: b
    end
  end interface
end

submodule(m2) m2s1
 contains
  module procedure s
  end
end