1: #include <petsc/finclude/petscsys.h>
  2: program ex1f90
  3:   use petscsys
  4:   use, intrinsic :: iso_c_binding
  5:   implicit none

  7:   PetscViewer viewer
  8:   PetscErrorCode ierr
  9:   PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, 'ex1f90 test'//c_new_line, ierr))

 11:   PetscCallA(PetscViewerBinaryOpen(PETSC_COMM_WORLD, 'binaryoutput', FILE_MODE_READ, viewer, ierr))
 12:   PetscCallA(PetscViewerDestroy(viewer, ierr))
 13:   PetscCallA(PetscFinalize(ierr))
 14: end

 16: !/*TEST
 17: !
 18: !   test:
 19: !      output_file: output/empty.out
 20: !
 21: !TEST*/