X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/d0ffc37686edcc803601f76ab51fdfed5fc2f241..bb12a168512ced7a0f1e4924d367c87ed7c22d1c:/teshsuite/smpi/mpich3-test/f90/pt2pt/dummyf90.f90 diff --git a/teshsuite/smpi/mpich3-test/f90/pt2pt/dummyf90.f90 b/teshsuite/smpi/mpich3-test/f90/pt2pt/dummyf90.f90 index 4db2b95782..e2e92db803 100644 --- a/teshsuite/smpi/mpich3-test/f90/pt2pt/dummyf90.f90 +++ b/teshsuite/smpi/mpich3-test/f90/pt2pt/dummyf90.f90 @@ -1,15 +1,15 @@ ! This file created from test/mpi/f77/pt2pt/dummyf.f with f77tof90 -! -*- Mode: Fortran; -*- +! -*- Mode: Fortran; -*- ! ! (C) 2010 by Argonne National Laboratory. ! See COPYRIGHT in top-level directory. ! ! ! This file is used to disable certain compiler optimizations that -! can cause incorrect results with the test in greqf.f. It provides a +! can cause incorrect results with the test in greqf.f. It provides a ! point where extrastate may be modified, limiting the compilers ability ! to move code around. -! The include of mpif.h is not needed in the F77 case but in the +! The include of mpif.h is not needed in the F77 case but in the ! F90 case it is, because in that case, extrastate is defined as an ! integer (kind=MPI_ADDRESS_KIND), and the script that creates the ! F90 tests from the F77 tests looks for mpif.h