Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gfortran.fortran-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
