1#include <petsc/finclude/petscsys.h> 2program ex1f90 3 use petscsys 4 use, intrinsic :: iso_c_binding 5 implicit none 6 7 PetscViewer viewer 8 PetscErrorCode ierr 9 PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, 'ex1f90 test'//c_new_line, ierr)) 10 11 PetscCallA(PetscViewerBinaryOpen(PETSC_COMM_WORLD, 'binaryoutput', FILE_MODE_READ, viewer, ierr)) 12 PetscCallA(PetscViewerDestroy(viewer, ierr)) 13 PetscCallA(PetscFinalize(ierr)) 14end 15 16!/*TEST 17! 18! build: 19! requires: defined(PETSC_USING_F2003) defined(PETSC_USING_F90FREEFORM) 20! 21! test: 22! output_file: output/empty.out 23! 24!TEST*/ 25