Update test/intrinsics/test_intrinsics.fypp

Co-authored-by: Jeremie Vandenplas <[email protected]>
fortran-lang · Feb 7, 2025 · 52aab02 · 52aab02
1 parent 316269b
commit 52aab02
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/intrinsics/test_intrinsics.fypp b/test/intrinsics/test_intrinsics.fypp
@@ -86,7 +86,7 @@ subroutine test_sum(error)
         end do
 
         allocate(mask(n),source=.false.); mask(1:n:2) = .true.
-        allocate(nmask(n)); nmask = .not.mask
+        allocate(nmask, source = .not.mask)
         ! scramble array
         do i = 1, n
             call random_number(u)