File tree 2 files changed +0
-18
lines changed
2 files changed +0
-18
lines changed Original file line number Diff line number Diff line change @@ -1166,14 +1166,6 @@ module stdlib_bitsets
1166
1166
!! end program example_assignment
1167
1167
!!```
1168
1168
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
-
1177
1169
#:for k1 in INT_KINDS
1178
1170
pure module subroutine assign_log${k1}$_large( self, logical_vector )
1179
1171
!! Version: experimental
Original file line number Diff line number Diff line change @@ -89,16 +89,6 @@ contains
89
89
end function any_large
90
90
91
91
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
-
102
92
#:for k1 in INT_KINDS
103
93
pure module subroutine assign_log${k1}$_large( self, logical_vector )
104
94
! Used to define assignment from an array of type logical for bitset_large
You can’t perform that action at this time.
0 commit comments