Commit df133f8e authored by Junchao Zhang's avatar Junchao Zhang
Browse files

Fix typos in an F08 test

No reviewer
parent a4aa0675
...@@ -5,7 +5,8 @@ ...@@ -5,7 +5,8 @@
! See COPYRIGHT in top-level directory. ! See COPYRIGHT in top-level directory.
! !
program main program main
use mpi use mpi_f08
implicit none
integer value, wsize, wrank, extra, mykey integer value, wsize, wrank, extra, mykey
integer rvalue, svalue integer rvalue, svalue
TYPE(MPI_Comm) ncomm TYPE(MPI_Comm) ncomm
...@@ -19,7 +20,7 @@ ...@@ -19,7 +20,7 @@
! !
! Simple attribute put and get ! Simple attribute put and get
! !
call mpi_keyval_create( MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN, & call mpi_keyval_create( MPI_COMM_NULL_COPY_FN, MPI_COMM_NULL_DELETE_FN, &
& mykey, extra,ierr ) & mykey, extra,ierr )
call mpi_attr_get( MPI_COMM_WORLD, mykey, value, flag, ierr ) call mpi_attr_get( MPI_COMM_WORLD, mykey, value, flag, ierr )
if (flag) then if (flag) then
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment