blob: 877d340f640f709531351ef2833517d0475e9ce0 [file] [log] [blame]
! Tests -fget-definition with COMMON block with same name as variable.
program main
integer :: x
integer :: y
common /x/ y
x = y
end program
! RUN: %flang_fc1 -fget-definition 6 3 4 %s | FileCheck %s
! CHECK: x:{{.*}}getdefinition04.f90, 3, 14-15