21 lines · plain
1! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck %s2 3! Test that module EQUIVALENCE does not generate DICommonBlock.4 5module data_module6 real :: var1, var27 equivalence (var1, var2)8end module data_module9 10subroutine test_module_equiv11 use data_module12 var1 = 1.513 var2 = 2.514end subroutine15 16program main17 call test_module_equiv()18end program19 20! CHECK-NOT: DICommonBlock21