From ceecc04bfe7350ca2867b496156eccaa64c704de Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Tue, 8 Oct 2013 13:47:44 +0000 Subject: [PATCH] Some Fortran compilers warn about ! comments after #endif. So just move the comment to the prior line, and it's all good. This is obviosuly not *necessary*, but it helps cut down on warning noise. This commit was SVN r29393. --- ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h | 6 ++++-- ompi/mpi/fortran/use-mpi-f08/pmpi-f-interfaces-bind.h | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h b/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h index 7be81c348c..77cb35c623 100644 --- a/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h +++ b/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h @@ -1877,7 +1877,8 @@ subroutine ompi_file_set_errhandler_f(file,errhandler,ierror) & INTEGER, INTENT(OUT) :: ierror end subroutine ompi_file_set_errhandler_f -#endif ! OMPI_PROFILE_MPI_FILE_INTERFACE +! OMPI_PROFILE_MPI_FILE_INTERFACE +#endif subroutine ompi_finalize_f(ierror) & BIND(C, name="ompi_finalize_f") @@ -2857,7 +2858,8 @@ subroutine ompi_file_write_shared_f(fh,buf,count,datatype,status,ierror) & INTEGER, INTENT(OUT) :: ierror end subroutine ompi_file_write_shared_f -#endif ! OMPI_PROVIDE_MPI_FILE_INTERFACE +! OMPI_PROVIDE_MPI_FILE_INTERFACE +#endif subroutine ompi_register_datarep_f(datarep,read_conversion_fn, & write_conversion_fn,dtype_file_extent_fn, & diff --git a/ompi/mpi/fortran/use-mpi-f08/pmpi-f-interfaces-bind.h b/ompi/mpi/fortran/use-mpi-f08/pmpi-f-interfaces-bind.h index 685d4730ce..f2623d69f2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/pmpi-f-interfaces-bind.h +++ b/ompi/mpi/fortran/use-mpi-f08/pmpi-f-interfaces-bind.h @@ -1730,7 +1730,8 @@ subroutine pompi_file_set_errhandler_f(file,errhandler,ierror) & INTEGER, INTENT(OUT) :: ierror end subroutine pompi_file_set_errhandler_f -#endif ! OMPI_PROVIDE_MPI_FILE_INTERFACE +! OMPI_PROVIDE_MPI_FILE_INTERFACE +#endif subroutine pompi_finalize_f(ierror) & BIND(C, name="pompi_finalize_f") @@ -2703,7 +2704,8 @@ subroutine pompi_file_write_shared_f(fh,buf,count,datatype,status,ierror) & INTEGER, INTENT(OUT) :: ierror end subroutine pompi_file_write_shared_f -#endif ! OMPI_PROVIDE_MPI_FILE_INTERFACE +! OMPI_PROVIDE_MPI_FILE_INTERFACE +#endif subroutine pompi_register_datarep_f(datarep,read_conversion_fn, & write_conversion_fn,dtype_file_extent_fn, &