build(NAG): exploit nagfor 7.1 co_reduce

Author: rouson

test/unit-tests/designed-to-error-terminate.f90

@@ -32,32 +32,18 @@ program designed_to_error_terminate
 
 contains
 
-  pure function both(lhs,rhs) result(lhs_or_rhs)
-    logical, intent(in) :: lhs,rhs
-    logical lhs_or_rhs
+  pure function and(lhs,rhs) result(lhs_and_rhs)
+    logical, intent(in) :: lhs, rhs
+    logical lhs_and_rhs
 
-    lhs_or_rhs = lhs .and. rhs
+    lhs_and_rhs = lhs .and. rhs
 
   end function
 
   subroutine co_all(boolean)
     logical, intent(inout) :: boolean
 
-#ifndef NAGFOR
-    call co_reduce(boolean, both)
-#else
-    ! Because parallel NAG runs happen in shared memory and because this function is called only once in 
-    ! one test, a simplistic, non-scalable reduction algorithm suffices until co_reduce is supported.
-    block
-      logical, save :: my_boolean[*]
-      integer i
-
-      my_boolean = boolean
-      do i=1,num_images()
-        my_boolean = my_boolean .and.  my_boolean[i]
-      end do
-    end block
-#endif
+    call co_reduce(boolean, and)
 
   end subroutine