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/ex1_1.out
     24: !
     25: !TEST*/