fix demo_write_bitset

Author: jvdp1

test/examples/demo_write_bitset.f90

@@ -1,10 +1,12 @@
 program demo_write_bitset    
+use stdlib_bitsets
+implicit none
 character(*), parameter :: &        
 bits_0   = 'S33B000000000000000000000000000000000', &            
 bits_1   = 'S33B000000000000000000000000000000001', &            
-bits_33  = 'S33B100000000000000000000000000000000'            
+bits_2  = 'S33B100000000000000000000000000000000'            
 character(:), allocatable :: test_0, test_1, test_2        
-integer :: unit        
+integer :: unit, status
 type(bitset_64) :: set0, set1, set2, set3, set4, set5        
 call set0 % read_bitset( bits_0, status )        
 call set1 % read_bitset( bits_1, status )        
@@ -28,6 +30,6 @@ program demo_write_bitset
 call set4 % read_bitset(unit, advance='no')        
 call set5 % read_bitset(unit)        
 if ( set3 == set0 .and. set4 == set1 .and. set5 == set2 ) then        
-write(*,*) WRITE_BITSET to READ_BITSET through unit worked.'            
+write(*,*) 'WRITE_BITSET to READ_BITSET through unit worked.'            
 end if        
 end program demo_write_bitset