Sign in
llvm
/
llvm-archive
/
9ee4ded126524dc671b998a7c57f4d2433ee9d20
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
logical_3.f90
blob: f4d069e9a4c311cd4d8de7b52ae62afef4713ed1 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
This
checks the fix
for
PR30406
.
!
!
Contributed
by
Francois
-
Xavier
Coudert
<
fxcoudert@gcc
.
gnu
.
org
>
!===============================================================
function
f
()
logical
(
8
)
::
f
f
=
.
false
.
_8
end
function
f