1: !
  2: !  PETSc Program to test PetscReal2d
  3: !
  4: #include <petsc/finclude/petscsys.h>
  5: program main
  6:   use petscsys
  7:   implicit none
  8:   PetscReal2d, pointer :: dbleptr(:)
  9:   PetscInt, parameter :: n = 10
 10:   PetscInt i
 11:   PetscErrorCode ierr

 13:   PetscCallA(PetscInitialize(ierr))

 15:   allocate (dbleptr(n))
 16:   do i = 1, n
 17:     allocate (dbleptr(i)%ptr(20))
 18:   end do
 19:   do i = 1, n
 20:     deallocate (dbleptr(i)%ptr)
 21:   end do
 22:   deallocate (dbleptr)

 24:   PetscCallA(PetscFinalize(ierr))
 25: end

 27: !/*TEST
 28: !
 29: !   test:
 30: !      output_file: output/empty.out
 31: !
 32: !TEST*/