Fix ordering of dimensions for status arrays. Thanks to Randy Bramley

for noticing the problem.

This commit was SVN r14591.

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

@@ -7425,7 +7425,7 @@ EOF
 }
 
 start MPI_Testall small
-output_206 S "integer, dimension(count, MPI_STATUS_SIZE)"
+output_206 S "integer, dimension(MPI_STATUS_SIZE, count)"
 output_206 I "double precision"
 end MPI_Testall
 
@@ -7483,7 +7483,7 @@ EOF
 }
 
 start MPI_Testsome small
-output_208 S "integer, dimension(incount, MPI_STATUS_SIZE)"
+output_208 S "integer, dimension(MPI_STATUS_SIZE, incount)"
 output_208 I "double precision"
 end MPI_Testsome
 
@@ -8560,7 +8560,7 @@ EOF
 }
 
 start MPI_Waitall small
-output_248 S "integer, dimension(count, MPI_STATUS_SIZE)"
+output_248 S "integer, dimension(MPI_STATUS_SIZE, count)"
 output_248 I "double precision"
 end MPI_Waitall
 
@@ -8616,7 +8616,7 @@ EOF
 }
 
 start MPI_Waitsome small
-output_250 S "integer, dimension(incount, MPI_STATUS_SIZE)"
+output_250 S "integer, dimension(MPI_STATUS_SIZE, incount)"
 output_250 I "double precision"
 end MPI_Waitsome
 

ompi/mpi/f90/scripts/mpi_testall_f90.f90.sh

@@ -6,7 +6,7 @@
 #                         Corporation.  All rights reserved.
 # Copyright (c) 2004-2005 The Regents of the University of California.
 #                         All rights reserved.
-# Copyright (c) 2006      Cisco Systems, Inc.  All rights reserved.
+# Copyright (c) 2006-2007 Cisco Systems, Inc.  All rights reserved.
 # $COPYRIGHT$
 # 
 # Additional copyrights may follow
@@ -52,5 +52,5 @@ EOF
 
 # S = array of statuses, I = STATUSES_IGNORE
 
-output S "integer, dimension(count, MPI_STATUS_SIZE)"
+output S "integer, dimension(MPI_STATUS_SIZE, count)"
 output I "double precision"

ompi/mpi/f90/scripts/mpi_testsome_f90.f90.sh

@@ -6,7 +6,7 @@
 #                         Corporation.  All rights reserved.
 # Copyright (c) 2004-2005 The Regents of the University of California.
 #                         All rights reserved.
-# Copyright (c) 2006      Cisco Systems, Inc.  All rights reserved.
+# Copyright (c) 2006-2007 Cisco Systems, Inc.  All rights reserved.
 # $COPYRIGHT$
 # 
 # Additional copyrights may follow
@@ -54,5 +54,5 @@ EOF
 
 # S = array of statuses, I = STATUSES_IGNORE
 
-output S "integer, dimension(incount, MPI_STATUS_SIZE)"
+output S "integer, dimension(MPI_STATUS_SIZE, incount)"
 output I "double precision"

ompi/mpi/f90/scripts/mpi_waitall_f90.f90.sh

@@ -6,7 +6,7 @@
 #                         Corporation.  All rights reserved.
 # Copyright (c) 2004-2005 The Regents of the University of California.
 #                         All rights reserved.
-# Copyright (c) 2006      Cisco Systems, Inc.  All rights reserved.
+# Copyright (c) 2006-2007 Cisco Systems, Inc.  All rights reserved.
 # $COPYRIGHT$
 # 
 # Additional copyrights may follow
@@ -50,5 +50,5 @@ EOF
 
 # S = array of statuses, I = STATUSES_IGNORE
 
-output S "integer, dimension(count, MPI_STATUS_SIZE)"
+output S "integer, dimension(MPI_STATUS_SIZE, count)"
 output I "double precision"

ompi/mpi/f90/scripts/mpi_waitsome_f90.f90.sh

@@ -6,7 +6,7 @@
 #                         Corporation.  All rights reserved.
 # Copyright (c) 2004-2005 The Regents of the University of California.
 #                         All rights reserved.
-# Copyright (c) 2006      Cisco Systems, Inc.  All rights reserved.
+# Copyright (c) 2006-2007 Cisco Systems, Inc.  All rights reserved.
 # $COPYRIGHT$
 # 
 # Additional copyrights may follow
@@ -54,5 +54,5 @@ EOF
 
 # S = array of statuses, I = STATUSES_IGNORE
 
-output S "integer, dimension(incount, MPI_STATUS_SIZE)"
+output S "integer, dimension(MPI_STATUS_SIZE, incount)"
 output I "double precision"