1! Tests -fget-symbols-sources with BLOCK that contains same variable name as 2! another in an outer scope. 3program main 4 integer :: x 5 integer :: y 6 block 7 integer :: x 8 integer :: y 9 x = y 10 end block 11 x = y 12end program 13 14!! Inner x 15! RUN: %flang_fc1 -fsyntax-only -fget-definition 9 5 6 %s | FileCheck --check-prefix=CHECK1 %s 16! CHECK1: x:{{.*}}getdefinition05.f90, 7, 16-17 17!! Outer y 18! RUN: %flang_fc1 -fsyntax-only -fget-definition 11 7 8 %s | FileCheck --check-prefix=CHECK2 %s 19! CHECK2: y:{{.*}}getdefinition05.f90, 5, 14-15 20