repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Update ChangeLog and version files for release
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
count_mask_1.f90
blob
f9859fa2d0f168457560d6443501c284eb17ce25
1
! { dg-do run }
2
! PR 36590, PR 36681
3
program
test
4
logical
(
kind
=
1
),
parameter
::
t
=.
true
.,
f
=.
false
.
5
logical
(
kind
=
1
),
dimension
(
9
) ::
hexa
,
hexb
6
data
hexa
/
f
,
f
,
t
,
t
,
f
,
f
,
f
,
t
,
f
/,
hexb
/
f
,
t
,
f
,
f
,
f
,
t
,
t
,
f
,
f
/
7
isum
=
count
(
hexa
(
1
:
9
).
eqv
.
hexb
(
1
:
9
))
8
end program