Sign in
llvm
/
llvm-test-suite
/
refs/tags/llvmorg-19.1.2
/
.
/
Fortran
/
gfortran
/
regression
/
pr106934.f90
blob: ac58a3e82e3bab0accbcc3cf4be30bc6660cd514 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O"
}
subroutine s
logical
(
1
)
::
a
=
.
true
.
logical
(
2
)
::
b
a
=
transfer
(
b
,
a
)
end
