Skip to content

Commit e7e6e41

Browse files
committed
changed intent from out to inout
to support assignment of the same variable, i.e., `set=set`
1 parent e27e9af commit e7e6e41

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

src/stdlib_bitsets.fypp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff 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

src/stdlib_bitsets_large.fypp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff 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 ) ) )

0 commit comments

Comments
 (0)