Sign in
llvm
/
llvm-project
/
flang
/
382759d244408239f9194f89652147b47c100e34
/
.
/
test
/
Semantics
/
getdefinition04.f90
blob: 877d340f640f709531351ef2833517d0475e9ce0 [
file
] [
log
] [
blame
]
!
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
:
%
flang_fc1
-
fget
-
definition
6
3
4
%
s
|
FileCheck
%
s
!
CHECK
:
x
:{{.*}}
getdefinition04
.
f90
,
3
,
14
-
15