The Meson Build System
http://mesonbuild.com/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
504 B
30 lines
504 B
use, intrinsic :: iso_fortran_env, only: stderr=>error_unit |
|
use mpi |
|
|
|
implicit none |
|
|
|
logical :: flag |
|
integer :: ier |
|
|
|
call MPI_Init(ier) |
|
|
|
if (ier /= 0) then |
|
write(stderr,*) 'Unable to initialize MPI', ier |
|
stop 1 |
|
endif |
|
|
|
call MPI_Initialized(flag, ier) |
|
if (ier /= 0) then |
|
write(stderr,*) 'Unable to check MPI initialization state: ', ier |
|
stop 1 |
|
endif |
|
|
|
call MPI_Finalize(ier) |
|
if (ier /= 0) then |
|
write(stderr,*) 'Unable to finalize MPI: ', ier |
|
stop 1 |
|
endif |
|
|
|
print *, "OK: Fortran MPI" |
|
|
|
end program
|
|
|