Skip to content

Commit efbc0cc

Browse files
committed
removed assign_large
1 parent 1905c80 commit efbc0cc

File tree

2 files changed

+0
-18
lines changed

2 files changed

+0
-18
lines changed

Diff for: src/stdlib_bitsets.fypp

-8
Original file line numberDiff line numberDiff line change
@@ -1166,14 +1166,6 @@ module stdlib_bitsets
11661166
!! end program example_assignment
11671167
!!```
11681168

1169-
pure module subroutine assign_large( set1, set2 )
1170-
!! Version: experimental
1171-
!!
1172-
!! Used to define assignment for `bitset_large`.
1173-
type(bitset_large), intent(inout) :: set1
1174-
type(bitset_large), intent(in) :: set2
1175-
end subroutine assign_large
1176-
11771169
#:for k1 in INT_KINDS
11781170
pure module subroutine assign_log${k1}$_large( self, logical_vector )
11791171
!! Version: experimental

Diff for: src/stdlib_bitsets_large.fypp

-10
Original file line numberDiff line numberDiff line change
@@ -89,16 +89,6 @@ contains
8989
end function any_large
9090

9191

92-
pure module subroutine assign_large( set1, set2 )
93-
! Used to define assignment for bitset_large
94-
type(bitset_large), intent(inout) :: set1
95-
type(bitset_large), intent(in) :: set2
96-
97-
set1 % num_bits = set2 % num_bits
98-
set1 % blocks = set2 % blocks(:)
99-
100-
end subroutine assign_large
101-
10292
#:for k1 in INT_KINDS
10393
pure module subroutine assign_log${k1}$_large( self, logical_vector )
10494
! Used to define assignment from an array of type logical for bitset_large

0 commit comments

Comments
 (0)