[OMPI users] f90 interface error?: MPI_Comm_get_attr

[Michael Kluskens]

Error in:

openmpi-1.1a3r9663/ompi/mpi/f90/mpi-f90-interfaces.h
subroutine MPI_Comm_get_attr(comm, comm_keyval, attribute_val, flag,  
ierr)
  include 'mpif.h'
  integer, intent(in) :: comm
  integer, intent(in) :: comm_keyval
  integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val
  integer, intent(out) :: flag
  integer, intent(out) :: ierr
end subroutine MPI_Comm_get_attr

flag should be a logical.  Only in C is it an integer.

Compare with page 294 of MPI--The Complete Reference, Volume 1 and  
page 176 of Using MPI, 2nd ed.

In my test case I'm using:

  call MPI_Comm_get_attr(MPI_COMM_WORLD, MPI_UNIVERSE_SIZE, &
              universe_size, flag, ierr)

  integer :: ierr
  integer  (kind=MPI_ADDRESS_KIND) :: universe_size
  logical :: flag

This compiled and worked as of version 9427.

Michael