program test

use my_module
implicit none

#include <petsc/finclude/petsc.h90>
#include <petsc/finclude/petscsysdef.h> 
#include <petsc/finclude/petscvecdef.h>
#include <petsc/finclude/petscmatdef.h>    
#include <petsc/finclude/petscpcdef.h>
#include <petsc/finclude/petsckspdef.h>    

PetscInt :: j = 2
                                      
print *, 'j = ', j

end program test