43 lines · plain
1!RUN: %flang -fsyntax-only %s 2>&1 | FileCheck --allow-empty %s2!Ensure no bogus error messages about insufficiently defined procedures3!CHECK-NOT: error4 5module m6 interface7 module subroutine smp1(a1)8 end9 end interface10end11 12submodule(m) sm113 interface14 module subroutine smp2(a1,a2)15 end16 end interface17end18 19submodule(m:sm1) sm220 interface generic21 procedure smp122 procedure smp223 module subroutine smp3(a1,a2,a3)24 end25 end interface26 contains27 subroutine local128 call generic(0.)29 call generic(0., 1.)30 call generic(0., 1., 2.)31 end32 subroutine local2(a1,a2,a3)33 end34 module procedure smp135 end36 module subroutine smp2(a1,a2)37 end38 module subroutine smp3(a1,a2,a3)39 end40end41 42 43