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