1!RUN: %flang -fsyntax-only %s 2>&1 | FileCheck --allow-empty %s 2!Ensure no bogus error messages about insufficiently defined procedures 3!CHECK-NOT: error 4 5module m 6 interface 7 module subroutine smp1(a1) 8 end 9 end interface 10end 11 12submodule(m) sm1 13 interface 14 module subroutine smp2(a1,a2) 15 end 16 end interface 17end 18 19submodule(m:sm1) sm2 20 interface generic 21 procedure smp1 22 procedure smp2 23 module subroutine smp3(a1,a2,a3) 24 end 25 end interface 26 contains 27 subroutine local1 28 call generic(0.) 29 call generic(0., 1.) 30 call generic(0., 1., 2.) 31 end 32 subroutine local2(a1,a2,a3) 33 end 34 module procedure smp1 35 end 36 module subroutine smp2(a1,a2) 37 end 38 module subroutine smp3(a1,a2,a3) 39 end 40end 41 42 43