24 lines · plain
1!RUN: %flang -fsyntax-only %s 2>&1 | FileCheck --allow-empty %s2!Ensure no bogus error message about incompatible character length3!CHECK-NOT: error4 5module m16 integer :: n = 17end8 9module m210 interface11 module subroutine s(a,b)12 use m113 character(n) :: a14 character(n) :: b15 end16 end interface17end18 19submodule(m2) m2s120 contains21 module procedure s22 end23end24