1
1

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.
Этот коммит содержится в:
Jeff Squyres 2013-10-08 13:47:44 +00:00
родитель 2f9374e2b4
Коммит ceecc04bfe
2 изменённых файлов: 8 добавлений и 4 удалений

@ -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, &

@ -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, &