Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
count_mask_1.f90
blob: f9859fa2d0f168457560d6443501c284eb17ce25 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR
36590
,
PR
36681
program test
logical
(
kind
=
1
),
parameter
::
t
=.
true
.,
f
=.
false
.
logical
(
kind
=
1
),
dimension
(
9
)
::
hexa
,
hexb
data hexa
/
f
,
f
,
t
,
t
,
f
,
f
,
f
,
t
,
f
/,
hexb
/
f
,
t
,
f
,
f
,
f
,
t
,
t
,
f
,
f
/
isum
=
count
(
hexa
(
1
:
9
).
eqv
.
hexb
(
1
:
9
))
end
program
