Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
and_or_xor.f90
blob: 412008b77bfeccb796dd4762d8021b6c0ace4a79 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program L
if
(
and
(.
TRUE
.
_1
,
.
TRUE
.
_1
)
.
neqv
.
.
true
.)
call abort
if
(
or
(.
TRUE
.
_1
,
.
TRUE
.
_1
)
.
neqv
.
.
true
.)
call abort
if
(
xor
(.
TRUE
.
_1
,
.
TRUE
.
_1
)
.
neqv
.
.
false
.)
call abort
end
program L