!RUN: %flang_fc1 -fsyntax-only %s  2>&1 | FileCheck %s --allow-empty
!CHECK-NOT: error:
module m1
  interface
    module subroutine foo
    end
  end interface
  real x
end
module m2
  use m1
end
submodule(m1) sm1
  use m2 ! ok
 contains
  module procedure foo
  end
end
submodule(m1) sm2
 contains
  subroutine bar
    use m2 ! ok
  end
end