!$Id$
program test

use hdf5

INTEGER, PARAMETER  :: DP = 8  ! byte precision of double variables
  INTEGER, PARAMETER  :: SP = 4  ! byte precision of real variables
real (kind =SP), dimension(:,:),pointer :: dataset
real,dimension(2,2), target::pp
real (kind =SP),dimension(:,:), allocatable, target :: h5dataset


pp(1,1)=3

allocate ( h5dataset(2,2))
h5dataset(1,1)=12.
allocate(dataset(2,2))
dataset = h5dataset

print*,dataset
print*,h5dataset

end program test