flang/test/Lower/debug-use-stmt-module-multiple.f90

! RUN: %flang_fc1 -emit-hlfir -debug-info-kind=standalone %s -o - | FileCheck %s --check-prefix=WITH_DEBUG
! RUN: %flang_fc1 -emit-hlfir %s -o - | FileCheck %s --check-prefix=NO_DEBUG
! RUN: %flang_fc1 -emit-hlfir -debug-info-kind=line-tables-only %s -o - | FileCheck %s --check-prefix=NO_DEBUG

module mod_ma
  integer :: va = 1
end module mod_ma

module mod_mb
  integer :: vb = 2
end module mod_mb

module mod_mc
  integer :: vc = 3
end module mod_mc

! A module that uses three different modules in its specification part.
module mod_multi
  use mod_ma, only: va
  use mod_mb
  use mod_mc, renamed_vc => vc
  integer :: vx = 0
end module mod_multi

subroutine test_sub_uses_multi
  use mod_multi
  implicit none
  print *, vx
end subroutine

! WITH_DEBUG: fir.module_debug_imports "mod_multi" {
! WITH_DEBUG-NEXT: fir.use_stmt "mod_ma" only_symbols{{\[}}[@_QMmod_maEva]]
! WITH_DEBUG-NEXT: fir.use_stmt "mod_mb"{{$}}
! WITH_DEBUG-NEXT: fir.use_stmt "mod_mc" renames{{\[}}[#fir.use_rename<"renamed_vc", @_QMmod_mcEvc>]]
! WITH_DEBUG-NEXT: }

! There should be no more fir.use_stmt for mod_ma, mod_mb and mod_mc.
! WITH_DEBUG-NOT: fir.use_stmt "mod_ma"
! WITH_DEBUG-NOT: fir.use_stmt "mod_mb"
! WITH_DEBUG-NOT: fir.use_stmt "mod_mc"

! NO_DEBUG-NOT: fir.module_debug_imports