File tree Expand file tree Collapse file tree 2 files changed +4
-4
lines changed
Expand file tree Collapse file tree 2 files changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -1170,8 +1170,8 @@ module stdlib_bitsets
11701170!! Version: experimental
11711171!!
11721172!! Used to define assignment for `bitset_large`.
1173- type(bitset_large), intent(out ) :: set1
1174- type(bitset_large), intent(in) :: set2
1173+ type(bitset_large), intent(inout ) :: set1
1174+ type(bitset_large), intent(in) :: set2
11751175 end subroutine assign_large
11761176
11771177 #:for k1 in INT_KINDS
Original file line number Diff line number Diff line change @@ -91,8 +91,8 @@ contains
9191
9292 pure module subroutine assign_large( set1, set2 )
9393! Used to define assignment for bitset_large
94- type(bitset_large), intent(out ) :: set1
95- type(bitset_large), intent(in) :: set2
94+ type(bitset_large), intent(inout ) :: set1
95+ type(bitset_large), intent(in) :: set2
9696
9797 set1 % num_bits = set2 % num_bits
9898 allocate( set1 % blocks( size( set2 % blocks, kind=bits_kind ) ) )
You can’t perform that action at this time.
0 commit comments