Skip to content

Instantly share code, notes, and snippets.

@astrofrog
Created December 29, 2010 17:17
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save astrofrog/758767 to your computer and use it in GitHub Desktop.
Save astrofrog/758767 to your computer and use it in GitHub Desktop.
Patch to be able to compile HDF5 with NAG Fortran compiler. To apply, place in hdf5-1.8.5-patch1 and run "patch --dry-run -p1 < patch". When configuring, add FC="f95 -kind=byte" or FC="nagfor -kind=byte" to the configure command.
diff -rupN hdf5-1.8.5-patch1_original/fortran/test/tH5A_1_8.f90 hdf5-1.8.5-patch1/fortran/test/tH5A_1_8.f90
--- hdf5-1.8.5-patch1_original/fortran/test/tH5A_1_8.f90 2010-08-26 16:21:54.000000000 +0200
+++ hdf5-1.8.5-patch1/fortran/test/tH5A_1_8.f90 2010-12-29 18:09:41.000000000 +0100
@@ -158,13 +158,13 @@ SUBROUTINE attribute_test_1_8(cleanup, t
!!$ CALL test_attr_corder_transition(my_fcpl, my_fapl)
!!$ CALL test_attr_corder_delete(my_fcpl, my_fapl)
ret_total_error = 0
- CALL test_attr_info_by_idx(new_format, my_fcpl, my_fapl, ret_total_error)
+ CALL test_attr_info_by_idx(new_format(i), my_fcpl, my_fapl, ret_total_error)
CALL write_test_status(ret_total_error, &
' - Testing querying attribute info by index', &
total_error)
ret_total_error = 0
- CALL test_attr_delete_by_idx(new_format, my_fcpl, my_fapl, ret_total_error)
+ CALL test_attr_delete_by_idx(new_format(i), my_fcpl, my_fapl, ret_total_error)
CALL write_test_status(ret_total_error, &
' - Testing deleting attribute by index', &
total_error)
@@ -718,7 +718,7 @@ SUBROUTINE test_attr_create_by_name(new_
CALL check("h5aclose_f",error,total_error)
! /* Verify information for NEW attribute */
- CALL attr_info_by_idx_check(my_dataset, attrname, INT(u,HSIZE_T), use_index, total_error)
+ CALL attr_info_by_idx_check(my_dataset, attrname, INT(u,HSIZE_T), use_index(i), total_error)
! CALL check("FAILED IN attr_info_by_idx_check",total_error)
ENDDO
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment