Typo fix.

Author: vehre

src/runtime-libraries/mpi/mpi_caf.c

@@ -2079,7 +2079,7 @@ void *PREFIX(register)(size_t size, caf_register_t type, caf_token_t *token,
   if (unlikely(caf_is_finalized))
     goto error;
 
-  /* Start GASNET if not already started. */
+  /* Start MPI if not already started. */
   if (caf_num_images == 0)
 #ifdef COMPILER_SUPPORTS_CAF_INTRINSICS
     _gfortran_caf_init(NULL, NULL);

src/tests/regression/reported/issue-654-send_by_ref_rank_2.f90

@@ -36,7 +36,7 @@ program test_sendget_by_ref
     if (any(R_send%A(:,i) /= (/(j, j = 1, num_images())/))) res = .False.
   end do
 
-  ! Recude the result. both() is just a logical scalar and, because there
+  ! Reduce the result. both() is just a logical scalar and, because there
   ! is no predefined operator for this.
   call co_reduce(res, both)
   write(*,*) this_image(), ':', R_get%A, '|', R_send%A