1!RUN: %flang -fsyntax-only %s 2>&1 | FileCheck --allow-empty %s 2!Ensure no bogus error message about incompatible character length 3!CHECK-NOT: error 4 5module m1 6 integer :: n = 1 7end 8 9module m2 10 interface 11 module subroutine s(a,b) 12 use m1 13 character(n) :: a 14 character(n) :: b 15 end 16 end interface 17end 18 19submodule(m2) m2s1 20 contains 21 module procedure s 22 end 23end 24