11 lines · plain
1! Tests -fget-definition with COMMON block with same name as variable.2program main3 integer :: x4 integer :: y5 common /x/ y6 x = y7end program8 9! RUN: %flang_fc1 -fget-definition 6 3 4 %s | FileCheck %s10! CHECK: x:{{.*}}getdefinition04.f90, 3, 14-1511