1! Tests -fget-definition with COMMON block with same name as variable.
2program main
3 integer :: x
4 integer :: y
5 common /x/ y
6 x = y
7end program
8
9! RUN: %f18 -fget-definition 6 3 4 -fparse-only %s | FileCheck %s
10! CHECK: x:{{.*}}getdefinition04.f90, 3, 14-15
11