flang/test/Semantics/modproc02.f90

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