1 ! This file created from test/mpi/f77/pt2pt/dummyf.f with f77tof90
2 ! -*- Mode: Fortran; -*-
4 ! (C) 2010 by Argonne National Laboratory.
5 ! See COPYRIGHT in top-level directory.
8 ! This file is used to disable certain compiler optimizations that
9 ! can cause incorrect results with the test in greqf.f. It provides a
10 ! point where extrastate may be modified, limiting the compilers ability
11 ! to move code around.
12 ! The include of mpif.h is not needed in the F77 case but in the
13 ! F90 case it is, because in that case, extrastate is defined as an
14 ! integer (kind=MPI_ADDRESS_KIND), and the script that creates the
15 ! F90 tests from the F77 tests looks for mpif.h
16 subroutine dummyupdate( extrastate )
18 integer (kind=MPI_ADDRESS_KIND) extrastate