From 24b9de292cba9d2ecc2b54fc7b56f86ddeed3aee Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Fri, 11 Nov 2005 23:18:59 +0000 Subject: [PATCH] Fix for [righteous] compiler warnings from xlf90 compiler on OSX 10.3. Specifically define what the parameter type is, and mark its intent. This commit was SVN r8124. --- ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh | 38 ++++++++++---------- 1 file changed, 19 insertions(+), 19 deletions(-) diff --git a/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh b/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh index b3d3251913..58f08aef9c 100755 --- a/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh +++ b/ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh @@ -2479,7 +2479,7 @@ echo proc="${procedure}" echo "subroutine ${proc}(function, errhandler, ierr)" echo " use mpi_kinds" -echo " external :: function" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: function" echo " integer, intent(out) :: errhandler" echo " integer, intent(out) :: ierr" echo "end subroutine ${proc}" @@ -2496,8 +2496,8 @@ echo proc="${procedure}" echo "subroutine ${proc}(comm_copy_attr_fn, comm_delete_attr_fn, comm_keyval, extra_state, ierr)" echo " use mpi_kinds" -echo " external :: comm_copy_attr_fn" -echo " external :: comm_delete_attr_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: comm_copy_attr_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: comm_delete_attr_fn" echo " integer, intent(out) :: comm_keyval" echo " integer, intent(in) :: extra_state" echo " integer, intent(out) :: ierr" @@ -2826,7 +2826,7 @@ echo proc="${procedure}" echo "subroutine ${proc}(function, errhandler, ierr)" echo " use mpi_kinds" -echo " external :: function" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: function" echo " integer, intent(out) :: errhandler" echo " integer, intent(out) :: ierr" echo "end subroutine ${proc}" @@ -3120,7 +3120,7 @@ echo proc="${procedure}" echo "subroutine ${proc}(function, errhandler, ierr)" echo " use mpi_kinds" -echo " external :: function" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: function" echo " integer, intent(out) :: errhandler" echo " integer, intent(out) :: ierr" echo "end subroutine ${proc}" @@ -8798,9 +8798,9 @@ proc="${procedure}" echo "subroutine ${proc}(query_fn, free_fn, cancel_fn, extra_state, request& , ierr)" echo " use mpi_kinds" -echo " external :: query_fn" -echo " external :: free_fn" -echo " external :: cancel_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: query_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: free_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: cancel_fn" echo " integer, intent(in) :: extra_state" echo " integer, intent(out) :: request" echo " integer, intent(out) :: ierr" @@ -10136,8 +10136,8 @@ echo proc="${procedure}" echo "subroutine ${proc}(copy_fn, delete_fn, keyval, extra_state, ierr)" echo " use mpi_kinds" -echo " external :: copy_fn" -echo " external :: delete_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: copy_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: delete_fn" echo " integer, intent(out) :: keyval" echo " integer, intent(in) :: extra_state" echo " integer, intent(out) :: ierr" @@ -10171,7 +10171,7 @@ echo proc="${procedure}" echo "subroutine ${proc}(function, commute, op, ierr)" echo " use mpi_kinds" -echo " external :: function" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: function" echo " integer, intent(in) :: commute" echo " integer, intent(out) :: op" echo " integer, intent(out) :: ierr" @@ -11445,9 +11445,9 @@ echo "subroutine ${proc}(datarep, read_conversion_fn, write_conversion_fn, dtype , ierr)" echo " use mpi_kinds" echo " character(len=*), intent(in) :: datarep" -echo " external :: read_conversion_fn" -echo " external :: write_conversion_fn" -echo " external :: dtype_file_extent_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: read_conversion_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: write_conversion_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: dtype_file_extent_fn" echo " integer, intent(in) :: extra_state" echo " integer, intent(out) :: ierr" echo "end subroutine ${proc}" @@ -13823,8 +13823,8 @@ echo proc="${procedure}" echo "subroutine ${proc}(type_copy_attr_fn, type_delete_attr_fn, type_keyval, extra_state, ierr)" echo " use mpi_kinds" -echo " external :: type_copy_attr_fn" -echo " external :: type_delete_attr_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: type_copy_attr_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: type_delete_attr_fn" echo " integer, intent(out) :: type_keyval" echo " integer, intent(in) :: extra_state" echo " integer, intent(out) :: ierr" @@ -14903,7 +14903,7 @@ echo proc="${procedure}" echo "subroutine ${proc}(function, errhandler, ierr)" echo " use mpi_kinds" -echo " external :: function" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: function" echo " integer, intent(out) :: errhandler" echo " integer, intent(out) :: ierr" echo "end subroutine ${proc}" @@ -14920,8 +14920,8 @@ echo proc="${procedure}" echo "subroutine ${proc}(win_copy_attr_fn, win_delete_attr_fn, win_keyval, extra_state, ierr)" echo " use mpi_kinds" -echo " external :: win_copy_attr_fn" -echo " external :: win_delete_attr_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: win_copy_attr_fn" +echo " integer(MPI_ADDRESS_KIND), intent(in) :: win_delete_attr_fn" echo " integer, intent(out) :: win_keyval" echo " integer, intent(in) :: extra_state" echo " integer, intent(out) :: ierr"