[mpich2-commits] r7906 - in mpich2/trunk/test/mpi: f77/attr f77/pt2pt f77/spawn f90/pt2pt

[gropp at mcs.anl.gov]

Author: gropp
Date: 2011-02-04 07:44:51 -0600 (Fri, 04 Feb 2011)
New Revision: 7906

Added:
   mpich2/trunk/test/mpi/f77/pt2pt/dummyf.f
Modified:
   mpich2/trunk/test/mpi/f77/attr/
   mpich2/trunk/test/mpi/f77/pt2pt/Makefile.sm
   mpich2/trunk/test/mpi/f77/pt2pt/greqf.f
   mpich2/trunk/test/mpi/f77/spawn/
   mpich2/trunk/test/mpi/f90/pt2pt/
Log:
Added dummy routine call to suppress compiler optimization of extrastate in Fortran greq test, fixes #1162


Property changes on: mpich2/trunk/test/mpi/f77/attr
___________________________________________________________________
Modified: svn:ignore
   - Makefile.in
Makefile
*.o
baseattr
attraints.h
*ebug*
*elease*
*.vfproj
*.gcda
*.gcno

   + Makefile.in
Makefile
*.o
baseattr
attraints.h
*ebug*
*elease*
*.vfproj
*.gcda
*.gcno
summary.xml


Modified: mpich2/trunk/test/mpi/f77/pt2pt/Makefile.sm
===================================================================
--- mpich2/trunk/test/mpi/f77/pt2pt/Makefile.sm	2011-02-04 00:05:28 UTC (rev 7905)
+++ mpich2/trunk/test/mpi/f77/pt2pt/Makefile.sm	2011-02-04 13:44:51 UTC (rev 7906)
@@ -4,7 +4,7 @@
 smvar_do_sharedlibs = 0
 
 statusesf_SOURCES = statusesf.f
-greqf_SOURCES     = greqf.f
+greqf_SOURCES     = greqf.f dummyf.f
 
 testing:
 	../../runtests -srcdir=$(srcdir) -tests=testlist \

Added: mpich2/trunk/test/mpi/f77/pt2pt/dummyf.f
===================================================================
--- mpich2/trunk/test/mpi/f77/pt2pt/dummyf.f	                        (rev 0)
+++ mpich2/trunk/test/mpi/f77/pt2pt/dummyf.f	2011-02-04 13:44:51 UTC (rev 7906)
@@ -0,0 +1,18 @@
+C -*- Mode: Fortran; -*- 
+C
+C  (C) 2010 by Argonne National Laboratory.
+C      See COPYRIGHT in top-level directory.
+C
+C
+C This file is used to disable certain compiler optimizations that
+C can cause incorrect results with the test in greqf.f.  It provides a 
+C point where extrastate may be modified, limiting the compilers ability
+C to move code around.
+C The include of mpif.h is not needed in the F77 case but in the 
+C F90 case it is, because in that case, extrastate is defined as an
+C integer (kind=MPI_ADDRESS_KIND), and the script that creates the
+C F90 tests from the F77 tests looks for mpif.h
+      subroutine dummyupdate( extrastate )
+      include 'mpif.h'
+      include 'attr1aints.h'
+      end

Modified: mpich2/trunk/test/mpi/f77/pt2pt/greqf.f
===================================================================
--- mpich2/trunk/test/mpi/f77/pt2pt/greqf.f	2011-02-04 00:05:28 UTC (rev 7905)
+++ mpich2/trunk/test/mpi/f77/pt2pt/greqf.f	2011-02-04 13:44:51 UTC (rev 7906)
@@ -92,6 +92,9 @@
        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      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
@@ -105,3 +108,4 @@
        call MTest_Finalize( errs )
        call mpi_finalize( ierr )
        end
+C


Property changes on: mpich2/trunk/test/mpi/f77/spawn
___________________________________________________________________
Modified: svn:ignore
   - Makefile.in
Makefile
*.o
*ebug*
*elease*
*.vfproj
*.gcda
*.gcno
type1aint.h
connaccf
namepubf
spawnargvf
spawnmultf
spawnf
spawnmult2f

   + Makefile.in
Makefile
*.o
*ebug*
*elease*
*.vfproj
*.gcda
*.gcno
type1aint.h
connaccf
namepubf
spawnargvf
spawnmultf
spawnf
spawnmult2f
summary.xml



Property changes on: mpich2/trunk/test/mpi/f90/pt2pt
___________________________________________________________________
Modified: svn:ignore
   - Makefile.sm
Makefile
Makefile.in
testlist
statusesf90.f90
greqf90.f90
greqf90
statusesf90
*.gcda
*.gcno

   + Makefile.sm
Makefile
Makefile.in
testlist
statusesf90.f90
greqf90.f90
greqf90
dummyf90.f90
statusesf90
*.gcda
*.gcno