1!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s 2module m 3 interface 4 module subroutine s(x) ! implicitly typed 5 end 6 end interface 7end 8 9submodule (m) sm 10 implicit none 11 contains 12 !Ensure no error here due to IMPLICIT NONE 13 module procedure s 14 end 15end 16 17!CHECK: Module scope: m size=0 alignment=1 sourceRange=63 bytes 18!CHECK: s, MODULE, PUBLIC (Subroutine): Subprogram isInterface (REAL(4) x) 19!CHECK: Subprogram scope: s size=4 alignment=4 sourceRange=26 bytes 20!CHECK: s (Subroutine): HostAssoc 21!CHECK: x (Implicit) size=4 offset=0: ObjectEntity dummy type: REAL(4) 22!CHECK: Module scope: sm size=0 alignment=1 sourceRange=65 bytes 23!CHECK: s, MODULE, PUBLIC (Subroutine): Subprogram (REAL(4) x) moduleInterface: s, MODULE, PUBLIC (Subroutine): Subprogram isInterface (REAL(4) x) 24!CHECK: Subprogram scope: s size=4 alignment=4 sourceRange=22 bytes 25!CHECK: s: HostAssoc 26!CHECK: x size=4 offset=0: ObjectEntity dummy type: REAL(4) 27