llvm-project/flang/test/Semantics/getdefinition04.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

11 lines
264 B
Fortran
Raw Normal View History

! 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 -fsyntax-only %s | FileCheck %s
! CHECK: x:{{.*}}getdefinition04.f90, 3, 14-15