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
* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
ibits.f90
blob
9233b97a37a793f1225eb69eb9f1fcf0b1e5f4b6
1
! { dg-do run }
2
! Test that the mask is properly converted to the kind type of j in ibits.
3
program
ibits_test
4
implicit none
5
integer
(
8
),
parameter
::
n
=
z
'00000000FFFFFFFF'
! { dg-warning "BOZ literal at .1. outside a DATA statement" }
6
integer
(
8
)
i
,
j
,
k
,
m
7
j
=
1
8
do
i
=
1
,
70
9
j
=
ishft
(
j
,
1
) +
1
10
k
=
ibits
(
j
,
0
,
32
)
11
m
=
iand
(
j
,
n
)
12
if
(
k
/=
m
)
call
abort
13
end do
14
end program
ibits_test
15