Actual source code: ex1f90.F90

  1: program ex1f90

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

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

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

 17: !/*TEST
 18: !
 19: !   build:
 20: !      requires: defined(PETSC_USING_F2003) defined(PETSC_USING_F90FREEFORM)
 21: !
 22: !   test:
 23: !      output_file: output/empty.out
 24: !
 25: !TEST*/