Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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