* make sure proceedure names are not longer than 31 characters

This commit was SVN r7037.

ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh

@@ -7330,6 +7330,9 @@ echo
 
 
 procedure='MPI_File_write_ordered_begin'
+# allow for 2 char rank, 2 char for type, 2 char for kind and
+# still be 31 characters or less
+procedure="`echo ${procedure} | cut -c1-25`"
 
 echo "interface ${procedure}"
 echo

ompi/mpi/f90/scripts/mpi_file_write_ordered_begin_f90.f90.sh

@@ -3,6 +3,9 @@
 . "$1/fortran_kinds.sh"
 
 procedure='MPI_File_write_ordered_begin'
+# allow for 2 char rank, 2 char for type, 2 char for kind and
+# still be 31 characters or less
+procedure="`echo ${procedure} | cut -c1-25`"
 
 rank=0
 for kind in $lkinds