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