Description of problem:
A trivial mpi program shows that openmpi leaks memory and tries to free an apparently unallocated block

Version-Release number of selected component (if applicable):
openmpi-libs-1.2.4-2.fc9.x86_64

How reproducible:
Always:

Steps to Reproduce:
1. Compile trivial mpi program:
      program mpitst
      print *,"initializing"
      call mpi_init(info)
      if(info.eq.0) then
         call mpi_finalize(info)
         print *, "MPI basic test passed..."
      else
         print *, "MPI_Init failed with code ", info
      end if
      end
2. Run it under valgrind
  
Actual results:
==9634== Invalid free() / delete / delete[]
==9634==    at 0x4A0609F: free (vg_replace_malloc.c:323)
==9634==    by 0x33B8F214AA: free_mem (in /lib64/libc-2.8.so)
==9634==    by 0x33B8F21031: __libc_freeres (in /lib64/libc-2.8.so)
==9634==    by 0x4802344: _vgnU_freeres (vg_preloaded.c:60)
==9634==    by 0x33B8E35924: exit (in /lib64/libc-2.8.so)
==9634==    by 0x33B8E1E330: (below main) (in /lib64/libc-2.8.so)
==9634==  Address 0x50f1848 is not stack'd, malloc'd or (recently) free'd
==9634== 
==9634== ERROR SUMMARY: 1 errors from 1 contexts (suppressed: 4 from 1)
==9634== malloc/free: in use at exit: 45,763 bytes in 150 blocks.
==9634== malloc/free: 13,177 allocs, 13,028 frees, 6,005,942 bytes allocated.
==9634== For counts of detected errors, rerun with: -v
==9634== searching for pointers to 150 not-freed blocks.
==9634== checked 388,896 bytes.
==9634== 
==9634== LEAK SUMMARY:
==9634==    definitely lost: 23,372 bytes in 105 blocks.
==9634==      possibly lost: 0 bytes in 0 blocks.
==9634==    still reachable: 22,391 bytes in 45 blocks.


Expected results:
valgrind should report no invalid frees, and no memory leaks.

Additional info:
Similar program in C exposes the same problem in the openmpi library - that is, it is not a program in the fortran wrapper only.

#include <stdio.h>
#include <mpi.h>
int main(int argc, char *argv[])
{
  int rc = MPI_Init(&argc, &argv);
  if(rc == MPI_SUCCESS) {
    rc = MPI_Finalize(); printf("Finalize returns %d\n", rc);
  } else
    printf("MPI_Init returned %d\n", rc);
  return rc;
}