!
!  Simple PETSc Program written in Fortran
!
#include <petsc/finclude/petscsys.h>
program main
  use petscsys
  implicit none

  PetscErrorCode ierr
  PetscMPIInt rank
  character*(80) arch

  PetscCallA(PetscInitialize(ierr))
  PetscCallMPIA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr))
  print *, 'Greetings from rank', rank

  PetscCallA(PetscGetArchType(arch, ierr))
  write (6, 100) arch
100 format(' PETSC_ARCH ', A)

  PetscCallA(PetscFinalize(ierr))
end

!
!/*TEST
!
!   test:
!     filter: grep -v PETSC_ARCH
!
!TEST*/