PR related to #726 and #723

src/stdlib_bitsets.fypp

@@ -1166,13 +1166,13 @@ module stdlib_bitsets
 !!    end program example_assignment
 !!```
 
-        pure module subroutine assign_large( set1, set2 )
-!! Version: experimental
-!!
-!! Used to define assignment for `bitset_large`.
-            type(bitset_large), intent(out) :: set1
-            type(bitset_large), intent(in)  :: set2
-        end subroutine assign_large
+!        pure module subroutine assign_large( set1, set2 )
+!!! Version: experimental
+!!!
+!!! Used to define assignment for `bitset_large`.
+!            type(bitset_large), intent(out) :: set1
+!            type(bitset_large), intent(in)  :: set2
+!        end subroutine assign_large
 
     #:for k1 in INT_KINDS
         pure module subroutine assign_log${k1}$_large( self, logical_vector )

src/stdlib_bitsets_large.fypp

@@ -89,16 +89,16 @@ contains
     end function any_large
 
 
-    pure module subroutine assign_large( set1, set2 )
-!     Used to define assignment for bitset_large
-        type(bitset_large), intent(out) :: set1
-        type(bitset_large), intent(in)  :: set2
-
-        set1 % num_bits = set2 % num_bits
-        allocate( set1 % blocks( size( set2 % blocks, kind=bits_kind ) ) )
-        set1 % blocks(:) = set2 % blocks(:)
-
-    end subroutine assign_large
+!    pure module subroutine assign_large( set1, set2 )
+!!     Used to define assignment for bitset_large
+!        type(bitset_large), intent(out) :: set1
+!        type(bitset_large), intent(in)  :: set2
+!
+!        set1 % num_bits = set2 % num_bits
+!        allocate( set1 % blocks( size( set2 % blocks, kind=bits_kind ) ) )
+!        set1 % blocks(:) = set2 % blocks(:)
+!
+!    end subroutine assign_large
 
     #:for k1 in INT_KINDS
     pure module subroutine assign_log${k1}$_large( self, logical_vector )

test/bitsets/test_stdlib_bitset_large.f90

@@ -1,7 +1,15 @@
 module test_stdlib_bitset_large
     use testdrive, only : new_unittest, unittest_type, error_type, check
     use :: stdlib_kinds, only : int8, int16, int32, int64
-    use stdlib_bitsets
+    use stdlib_bitsets, only: bitset_large, bits_kind&
+                              , bits &
+                              , success &
+                              , and, and_not, or, xor&
+                              , extract&
+                              , assignment(=)&
+                              , operator(<), operator(<=)&
+                              , operator(>), operator(>=)&
+                              , operator(/=), operator(==)
     implicit none
     character(*), parameter :: &
         bitstring_0   = '000000000000000000000000000000000', &
@@ -20,6 +28,7 @@ subroutine collect_stdlib_bitset_large(testsuite)
             new_unittest("string-operations", test_string_operations), &
             new_unittest("io", test_io), &
             new_unittest("initialization", test_initialization), &
+            new_unittest("bitset-assignment-array", test_assignment_array), &
             new_unittest("bitset-inquiry", test_bitset_inquiry), &
             new_unittest("bit-operations", test_bit_operations), &
             new_unittest("bitset-comparisons", test_bitset_comparisons), &
@@ -550,6 +559,36 @@ subroutine test_initialization(error)
 
     end subroutine test_initialization
 
+    subroutine test_assignment_array(error)
+        !> Error handling
+        type(error_type), allocatable, intent(out) :: error
+
+        logical(int8)  :: log1(64) = .true.
+
+        integer :: i
+        type(bitset_large) :: set1(0:4)
+
+        do i = 0, size(set1) - 1
+           set1(i) = log1
+        enddo
+
+        do i = 0, size(set1) - 1
+            call check(error, set1(i) % bits(), 64, &
+                ' initialization with logical(int8) failed to set' // &
+                ' the right size in a bitset array.')
+            if (allocated(error)) return
+        enddo
+
+        !Test added following issue https://github.com/fortran-lang/stdlib/issues/726
+        set1(0) = set1(0)
+
+        call check(error, set1(0) % bits(), 64, &
+            ' initialization from bitset_large failed to set' // &
+            ' the right size in a bitset array.')
+        if (allocated(error)) return
+
+    end subroutine test_assignment_array
+
     subroutine test_bitset_inquiry(error)
         !> Error handling
         type(error_type), allocatable, intent(out) :: error