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
1170
1170
!! Version: experimental
1171
1171
!!
1172
1172
!! 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
1175
1175
end subroutine assign_large
1176
1176
1177
1177
#:for k1 in INT_KINDS
Original file line number Diff line number Diff line change @@ -91,8 +91,8 @@ contains
91
91
92
92
pure module subroutine assign_large( set1, set2 )
93
93
! 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
96
96
97
97
set1 % num_bits = set2 % num_bits
98
98
allocate( set1 % blocks( size( set2 % blocks, kind=bits_kind ) ) )
You can’t perform that action at this time.
0 commit comments