C
C Copyright (C) by Argonne National Laboratory
C     See COPYRIGHT in top-level directory
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
