Program
ex0501
implicit none
logical
(
kind
=
2
)
::
a
,
b
a
=
.true.
b
=
.false.
write
(
*
,
*
)
a
,
b
stop
end