! Tests calling PetscOptionsSetValue() before PetscInitialize(): Fortran Example
#include <petsc/finclude/petscsys.h>
program main
  use petscmpi  ! or mpi or mpi_f08
  use petscsys

  implicit none
  PetscErrorCode :: ierr
  PetscMPIInt  ::  rank, size
  character(len=80) :: outputString

  ! Every PETSc routine should begin with the PetscInitialize() routine.

  PetscCallA(PetscOptionsSetValue(PETSC_NULL_OPTIONS, '-no_signal_handler', 'true', ierr))
  PetscCallA(PetscInitialize(ierr))

  ! We can now change the communicator universe for PETSc

  PetscCallMPIA(MPI_Comm_size(MPI_COMM_WORLD, size, ierr))
  PetscCallMPIA(MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr))
  write (outputString, *) 'Number of processors =', size, 'rank =', rank, '\n'
  PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr))
  PetscCallA(PetscFinalize(ierr))
end program main

!/*TEST
!
!   test:
!      requires: defined(PETSC_USE_LOG)
!      nsize: 2
!      args: -options_view -get_total_flops
!      filter: grep -E -v "(Total flops)"
!
!TEST*/