From 4625949f51beb6df1ef38a82fda5155d3801ba77 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Wed, 28 Nov 2012 15:54:38 -0500 Subject: [PATCH] Add target on buffer argument in hdf5_read_long. --- src/hdf5_interface.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/hdf5_interface.F90 b/src/hdf5_interface.F90 index e7b10dd9da..28338698c6 100644 --- a/src/hdf5_interface.F90 +++ b/src/hdf5_interface.F90 @@ -1246,9 +1246,9 @@ contains subroutine hdf5_read_long(group, name, buffer) - integer(HID_T), intent(in) :: group - character(*), intent(in) :: name - integer(8), intent(out) :: buffer + integer(HID_T), intent(in) :: group + character(*), intent(in) :: name + integer(8), target, intent(out) :: buffer integer(HID_T) :: dset type(c_ptr) :: f_ptr