Created
December 29, 2010 17:17
-
-
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.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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