Skip to content

Commit 52aab02

Browse files
jalveszjvdp1
andauthored
Update test/intrinsics/test_intrinsics.fypp
Co-authored-by: Jeremie Vandenplas <jeremie.vandenplas@gmail.com>
1 parent 316269b commit 52aab02

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

test/intrinsics/test_intrinsics.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -86,7 +86,7 @@ subroutine test_sum(error)
8686
end do
8787

8888
allocate(mask(n),source=.false.); mask(1:n:2) = .true.
89-
allocate(nmask(n)); nmask = .not.mask
89+
allocate(nmask, source = .not.mask)
9090
! scramble array
9191
do i = 1, n
9292
call random_number(u)

0 commit comments

Comments
 (0)