Skip to content

Commit 316269b

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

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
@@ -44,7 +44,7 @@ subroutine test_sum(error)
4444
x(i) = 8*atan(1._${k1}$)*(real(i,kind=${k1}$)-0.5_${k1}$)/real(n,kind=${k1}$)**2
4545
end do
4646
allocate(mask(n),source=.false.); mask(1:n:2) = .true.
47-
allocate(nmask(n)); nmask = .not.mask
47+
allocate(nmask, source = .not.mask)
4848
! scramble array
4949
do i = 1, n
5050
call random_number(u)

0 commit comments

Comments
 (0)