25 lines · plain
1!RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty2!CHECK-NOT: error:3module m14 interface5 module subroutine foo6 end7 end interface8 real x9end10module m211 use m112end13submodule(m1) sm114 use m2 ! ok15 contains16 module procedure foo17 end18end19submodule(m1) sm220 contains21 subroutine bar22 use m2 ! ok23 end24end25