Sign in
gnu
/
gcc
/
edec2660ff4890ecf8cc191f7c92cf527de51fe2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
and_or_xor.f90
blob: 75f842cc3126385b73a6a369b37a09dc16c5e525 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program L
if
(
and
(.
TRUE
.
_1
,
.
TRUE
.
_1
)
.
neqv
.
.
true
.)
STOP
1
if
(
or
(.
TRUE
.
_1
,
.
TRUE
.
_1
)
.
neqv
.
.
true
.)
STOP
2
if
(
xor
(.
TRUE
.
_1
,
.
TRUE
.
_1
)
.
neqv
.
.
false
.)
STOP
3
end
program L