xref: /llvm-project/flang/test/Semantics/smp-proc-ref.f90 (revision d1e4a2d300f7c0c6b681ddf719132c81d348aaab)

!RUN: %flang_fc1 -fsyntax-only %s
module m
  real :: qux(10)
  interface
    module subroutine bar(i)
    end
    module function baz()
    end
  end interface
end

submodule(m) sm
 contains
  module procedure bar
    qux(i) = baz() ! ensure no bogus error here
  end
  module procedure baz
    baz = 1.
  end
end