1 C -*- Mode: Fortran; -*-
3 C (C) 2010 by Argonne National Laboratory.
4 C See COPYRIGHT in top-level directory.
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 )
17 include 'attr1aints.h'