Stop trying to build on native WIN32, it's broken anyway

[simgrid.git] / teshsuite / smpi / mpich3-test / f77 / pt2pt / greqf.f

diff --git a/teshsuite/smpi/mpich3-test/f77/pt2pt/greqf.f b/teshsuite/smpi/mpich3-test/f77/pt2pt/greqf.f
index 163f0794b0b76e7d95fd99d60a47cf7548abf57c..5c467b1526bdb12d538ac03260e3d4390616ca7b 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/pt2pt/greqf.f
+++ b/teshsuite/smpi/mpich3-test/f77/pt2pt/greqf.f
@@ -1,4 +1,4 @@
-C -*- Mode: Fortran; -*- 
+C -*- Mode: Fortran; -*-
 C
 C  (C) 2003 by Argonne National Laboratory.
 C      See COPYRIGHT in top-level directory.
@@ -31,7 +31,7 @@ C      print *, 'Free_fn called'
 C
       extrastate = extrastate - 1
 C   The value returned by the free function is the error code
-C   returned by the wait/test function 
+C   returned by the wait/test function
       ierr = MPI_SUCCESS
       end
 C
@@ -50,10 +50,10 @@ C This is a very simple test of generalized requests.  Normally, the
 C MPI_Grequest_complete function would be called from another routine,
 C often running in a separate thread.  This simple code allows us to
 C check that requests can be created, tested, and waited on in the
-C case where the request is complete before the wait is called.  
+C case where the request is complete before the wait is called.
 C
 C Note that MPI did *not* define a routine that can be called within
-C test or wait to advance the state of a generalized request.  
+C test or wait to advance the state of a generalized request.
 C Most uses of generalized requests will need to use a separate thread.
 C
        program main
@@ -70,36 +70,36 @@ C
 
        errs = 0
        freefncall = 0
-       
+
        call MTest_Init( ierr )
 
        extrastate = 0
-       call mpi_grequest_start( query_fn, free_fn, cancel_fn, 
+       call mpi_grequest_start( query_fn, free_fn, cancel_fn,
      &            extrastate, request, ierr )
        call mpi_test( request, flag, status, ierr )
        if (flag) then
           errs = errs + 1
           print *, 'Generalized request marked as complete'
        endif
-       
+
        call mpi_grequest_complete( request, ierr )
 
        call MPI_Wait( request, status, ierr )
 
        extrastate = 1
-       call mpi_grequest_start( query_fn, free_fn, cancel_fn, 
+       call mpi_grequest_start( query_fn, free_fn, cancel_fn,
      &                          extrastate, request, ierr )
        call mpi_grequest_complete( request, ierr )
        call mpi_wait( request, MPI_STATUS_IGNORE, ierr )
-C       
-C      The following routine may prevent an optimizing compiler from 
+C
+C      The following routine may prevent an optimizing compiler from
 C      just remembering that extrastate was set in grequest_start
        call dummyupdate(extrastate)
        if (extrastate .ne. 0) then
           errs = errs + 1
           if (freefncall .eq. 0) then
               print *, 'Free routine not called'
-          else 
+          else
               print *, 'Free routine did not update extra_data'
               print *, 'extrastate = ', extrastate
           endif