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*/