blob: 6084f69e7fe1a9ce595c1143dfcd4ddd1367dace [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 -fsyntax-only -fget-definition 6 3 4 %s | FileCheck %s
! CHECK: x:{{.*}}getdefinition04.f90, 3, 14-15