1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
program example_from_string
use stdlib_bitsets
implicit none
character(*), parameter :: &
bits_all = '111111111111111111111111111111111'
type(bitset_64) :: set0
call set0%from_string(bits_all)
if (bits(set0) /= 33) then
error stop "FROM_STRING failed to interpret "// &
"BITS_ALL's size properly."
else if (.not. set0%all()) then
error stop "FROM_STRING failed to interpret"// &
"BITS_ALL's value properly."
else
write (*, *) "FROM_STRING transferred BITS_ALL properly"// &
" into set0."
end if
end program example_from_string
|
