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