21 lines · plain
1!RUN: %flang_fc1 -fsyntax-only %s2module m3 real :: qux(10)4 interface5 module subroutine bar(i)6 end7 module function baz()8 end9 end interface10end11 12submodule(m) sm13 contains14 module procedure bar15 qux(i) = baz() ! ensure no bogus error here16 end17 module procedure baz18 baz = 1.19 end20end21