1 ! This file created from test/mpi/f77/info/infotestf.f with f77tof90
2 ! -*- Mode: Fortran; -*-
4 ! (C) 2003 by Argonne National Laboratory.
5 ! See COPYRIGHT in top-level directory.
13 parameter (valuelen=64)
14 character*(valuelen) value
19 call MTest_Init( ierr )
21 call mpi_info_create( i1, ierr )
22 call mpi_info_create( i2, ierr )
24 call mpi_info_set( i1, "key1", "value1", ierr )
25 call mpi_info_set( i2, "key2", "value2", ierr )
27 call mpi_info_get( i1, "key2", valuelen, value, flag, ierr )
29 print *, "Found key2 in info1"
33 call MPI_Info_get( i1, "key1", 64, value, flag, ierr )
35 print *, "Did not find key1 in info1"
38 if (value .ne. "value1") then
39 print *, "Found wrong value (", value, "), expected value1"
42 ! check for trailing blanks
44 if (value(i:i) .ne. " ") then
45 print *, "Found non blank in info value"
52 call mpi_info_free( i1, ierr )
53 call mpi_info_free( i2, ierr )
55 call MTest_Finalize( errs )
56 call MPI_Finalize( ierr )