Use STDLIB_BITSET == 1

Author: jvdp1

example/math/example_math_swap.F90

@@ -44,7 +44,7 @@ program example_math_swap
         call swap(x,y)
     end block
 
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     block
         use stdlib_bitsets
         type(bitset_64) :: x, y

include/macros.inc

@@ -1,6 +1,7 @@
 
 !Default: compile the bitset module
 #ifdef STDLIB_NO_BITSET
+#define STDLIB_BITSET 0
 #else
-#define STDLIB_BITSET
+#define STDLIB_BITSET 1
 #endif

src/stdlib_math.fypp

@@ -5,7 +5,7 @@
 module stdlib_math
     use stdlib_kinds, only: int8, int16, int32, int64, sp, dp, xdp, qp
     use stdlib_optval, only: optval
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     use stdlib_bitsets, only: bitset_64, bitset_large
 #endif
 

src/stdlib_sorting.fypp

@@ -135,7 +135,7 @@ module stdlib_sorting
     use stdlib_string_type, only: string_type, assignment(=), operator(>), &
         operator(>=), operator(<), operator(<=)
 
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     use stdlib_bitsets, only: bitset_64, bitset_large, &
         assignment(=), operator(>), operator(>=), operator(<), operator(<=)
 #endif

test/math/test_stdlib_math.fypp

@@ -370,7 +370,7 @@ contains
         if (allocated(error)) return
     end subroutine test_swap_stt
 
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     subroutine test_swap_bitset_64(error)
         use stdlib_bitsets
         type(error_type), allocatable, intent(out) :: error

test/sorting/test_sorting.fypp

@@ -12,7 +12,7 @@ module test_sorting
     use stdlib_sorting, only: sort, sort_index, sort_adjoint, ord_sort, radix_sort, int_index, int_index_low
     use stdlib_string_type, only: string_type, assignment(=), operator(>), &
         operator(<), write(formatted)
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     use stdlib_bitsets, only: bitset_64, bitset_large, &
         assignment(=), operator(>), operator(<)
 #endif
@@ -25,7 +25,7 @@ module test_sorting
     integer(int32), parameter :: test_size = 2_int32**test_power
     integer(int32), parameter :: char_size = char_set_size**4
     integer(int32), parameter :: string_size = char_set_size**3
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     integer(int32), parameter :: bitset_size = char_set_size**3
 #endif
     integer(int32), parameter :: block_size = test_size/6
@@ -50,7 +50,7 @@ module test_sorting
         string_decrease(0:string_size-1), &
         string_increase(0:string_size-1), &
         string_rand(0:string_size-1)
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     type(bitset_large) ::                  &
         bitsetl_decrease(0:bitset_size-1), &
         bitsetl_increase(0:bitset_size-1), &
@@ -65,7 +65,7 @@ module test_sorting
     real(sp)                :: real_dummy(0:test_size-1)
     character(len=4)        :: char_dummy(0:char_size-1)
     type(string_type)       :: string_dummy(0:string_size-1)
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     type(bitset_large)      :: bitsetl_dummy(0:bitset_size-1)
     type(bitset_64)         :: bitset64_dummy(0:bitset_size-1)
 #endif
@@ -74,7 +74,7 @@ module test_sorting
     integer(int32)          :: work(0:test_size/2-1)
     character(len=4)        :: char_work(0:char_size/2-1)
     type(string_type)       :: string_work(0:string_size/2-1)
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     type(bitset_large)      :: bitsetl_work(0:bitset_size/2-1)
     type(bitset_64)         :: bitset64_work(0:bitset_size/2-1)
 #endif
@@ -88,7 +88,7 @@ module test_sorting
     integer                 :: lun
     character(len=4)        :: char_temp
     type(string_type)       :: string_temp
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     type(bitset_large)      :: bitsetl_temp
     type(bitset_64)         :: bitset64_temp
 #endif
@@ -106,7 +106,7 @@ contains
         testsuite = [ &
             new_unittest('char_ord_sorts', test_char_ord_sorts), &
             new_unittest('string_ord_sorts', test_string_ord_sorts), &
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
             new_unittest('bitset_large_ord_sorts', test_bitsetl_ord_sorts), &
             new_unittest('bitset_64_ord_sorts', test_bitset64_ord_sorts), &
 #endif
@@ -115,15 +115,15 @@ contains
             new_unittest('int_sorts', test_int_sorts), &
             new_unittest('char_sorts', test_char_sorts), &
             new_unittest('string_sorts', test_string_sorts), &
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
             new_unittest('bitset_large_sorts', test_bitsetl_sorts), &
             new_unittest('bitset_64_sorts', test_bitset64_sorts), &
 #endif
 #:for ki, ti, namei in INT_INDEX_TYPES_ALT_NAME
             new_unittest('int_sort_indexes_${namei}$', test_int_sort_indexes_${namei}$), &
             new_unittest('char_sort_indexes_${namei}$', test_char_sort_indexes_${namei}$), &
             new_unittest('string_sort_indexes_${namei}$', test_string_sort_indexes_${namei}$), &
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
             new_unittest('bitset_large_sort_indexes_${namei}$', test_bitsetl_sort_indexes_${namei}$), &
             new_unittest('bitset_64_sort_indexes_${namei}$', test_bitset64_sort_indexes_${namei}$), &
 #endif
@@ -132,7 +132,7 @@ contains
             new_unittest('int_sort_adjointes_${namei}$', test_int_sort_adjointes_${namei}$), &
             new_unittest('char_sort_adjointes_${namei}$', test_char_sort_adjointes_${namei}$), &
             new_unittest('string_sort_adjointes_${namei}$', test_string_sort_adjointes_${namei}$), &
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
             new_unittest('bitset_large_sort_adjointes_${namei}$', test_bitsetl_sort_adjointes_${namei}$), &
             new_unittest('bitset_64_sort_adjointes_${namei}$', test_bitset64_sort_adjointes_${namei}$), &
 #endif
@@ -240,7 +240,7 @@ contains
             string_rand(index1) = string_temp
         end do
 
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
         do i = 0, bitset_size-1
             write(bin32,'(b32.32)') i
             call bitsetl_increase(i)%from_string(bin32)
@@ -556,7 +556,7 @@ contains
 
     end subroutine test_string_ord_sort
 
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     subroutine test_bitsetl_ord_sorts(error)
         !> Error handling
         type(error_type), allocatable, intent(out) :: error
@@ -1113,7 +1113,7 @@ contains
 
     end subroutine test_string_sort
 
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     subroutine test_bitsetl_sorts(error)
         !> Error handling
         type(error_type), allocatable, intent(out) :: error
@@ -1467,7 +1467,7 @@ contains
 
     end subroutine test_string_sort_index_${namei}$
 
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     subroutine test_bitsetl_sort_indexes_${namei}$(error)
         !> Error handling
         type(error_type), allocatable, intent(out) :: error
@@ -1807,7 +1807,7 @@ contains
 
     end subroutine test_string_sort_adjoint_${namei}$
 
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     subroutine test_bitsetl_sort_adjointes_${namei}$(error)
         !> Error handling
         type(error_type), allocatable, intent(out) :: error
@@ -2108,7 +2108,7 @@ contains
 
     end subroutine verify_string_sort
 
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     subroutine verify_bitsetl_sort( a, valid, i )
         type(bitset_large), intent(in) :: a(0:)
         logical, intent(out) :: valid
@@ -2222,7 +2222,7 @@ contains
 
     end subroutine verify_string_reverse_sort
 
-#ifdef STDLIB_BITSET
+#if STDLIB_BITSET == 1
     subroutine verify_bitsetl_reverse_sort( a, valid, i )
         type(bitset_large), intent(in) :: a(0:)
         logical, intent(out) :: valid