teshsuite/smpi/mpich3-test/f77/pt2pt/dummyf.f

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