15 lines · plain
1!RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck --allow-empty %s2!CHECK-NOT: error:3module m4 interface5 module subroutine smp(x)6 character, external :: x7 end8 end interface9end10submodule (m) sm11 contains12 module procedure smp ! crashes here13 end14end15