27 lines · plain
1!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s2module m3 interface4 module subroutine s(x) ! implicitly typed5 end6 end interface7end8 9submodule (m) sm10 implicit none11 contains12 !Ensure no error here due to IMPLICIT NONE13 module procedure s14 end15end16 17!CHECK: Module scope: m size=0 alignment=1 sourceRange=63 bytes18!CHECK: s, MODULE, PUBLIC (Subroutine): Subprogram isInterface (REAL(4) x)19!CHECK: Subprogram scope: s size=4 alignment=4 sourceRange=26 bytes20!CHECK: s (Subroutine): HostAssoc21!CHECK: x (Implicit) size=4 offset=0: ObjectEntity dummy type: REAL(4)22!CHECK: Module scope: sm size=0 alignment=1 sourceRange=65 bytes23!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 bytes25!CHECK: s: HostAssoc26!CHECK: x size=4 offset=0: ObjectEntity dummy type: REAL(4)27