1c4762a1bSJed Brown#include <petsc/finclude/petscsys.h> 2*c5e229c2SMartin Diehlprogram ex1f90 3c4762a1bSJed Brown use petscsys 4eb20d01eSSatish Balay use, intrinsic :: iso_c_binding 5c4762a1bSJed Brown implicit none 6c4762a1bSJed Brown 7c4762a1bSJed Brown PetscViewer viewer 8c4762a1bSJed Brown PetscErrorCode ierr 9dcb3e689SBarry Smith PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, 'ex1f90 test'//c_new_line, ierr)) 10d8606c27SBarry Smith 11d8606c27SBarry Smith PetscCallA(PetscViewerBinaryOpen(PETSC_COMM_WORLD, 'binaryoutput', FILE_MODE_READ, viewer, ierr)) 12d8606c27SBarry Smith PetscCallA(PetscViewerDestroy(viewer, ierr)) 13d8606c27SBarry Smith PetscCallA(PetscFinalize(ierr)) 14c4762a1bSJed Brownend 15c4762a1bSJed Brown 16c4762a1bSJed Brown!/*TEST 17c4762a1bSJed Brown! 185906a408SBlaise Bourdin! build: 19dfd57a17SPierre Jolivet! requires: defined(PETSC_USING_F2003) defined(PETSC_USING_F90FREEFORM) 205906a408SBlaise Bourdin! 21c4762a1bSJed Brown! test: 223886731fSPierre Jolivet! output_file: output/empty.out 23c4762a1bSJed Brown! 24c4762a1bSJed Brown!TEST*/ 25