Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
torture
/
compile
/
logical-1.f90
blob: 03cad93a550749cc40067d093690b3cbf5afdc61 [
file
] [
log
] [
blame
]
!
PR fortran
/
33500
subroutine whatever
()
logical
(
kind
=
1
)
::
l1
,
l2
,
l3
if
((
l1
.
and
.
l2
)
.
neqv
.
l3
)
then
l1
=
.
true
.
endif
end