! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck %s

! Test that module EQUIVALENCE does not generate DICommonBlock.

module data_module
  real :: var1, var2
  equivalence (var1, var2)
end module data_module

subroutine test_module_equiv
  use data_module
  var1 = 1.5
  var2 = 2.5
end subroutine

program main
  call test_module_equiv()
end program

! CHECK-NOT: DICommonBlock