diff options
Diffstat (limited to 'fortran/test/tH5A_1_8.f90')
-rw-r--r-- | fortran/test/tH5A_1_8.f90 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/fortran/test/tH5A_1_8.f90 b/fortran/test/tH5A_1_8.f90 index 32cb228..91ddc34 100644 --- a/fortran/test/tH5A_1_8.f90 +++ b/fortran/test/tH5A_1_8.f90 @@ -40,6 +40,7 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error) ! USE HDF5 ! This module contains all necessary modules + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE LOGICAL, INTENT(IN) :: cleanup @@ -213,6 +214,7 @@ SUBROUTINE test_attr_corder_create_compact(fcpl,fapl, total_error) ! Needed for get_info_by_name USE HDF5 ! This module contains all necessary modules + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE ! - - - arg types - - - @@ -401,6 +403,7 @@ SUBROUTINE test_attr_null_space(fcpl, fapl, total_error) !** !****************************************************************/ USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: fcpl @@ -532,6 +535,7 @@ SUBROUTINE test_attr_create_by_name(new_format,fcpl,fapl, total_error) !****************************************************************/ USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE @@ -746,6 +750,7 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error) !****************************************************************/ USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE @@ -951,6 +956,7 @@ END SUBROUTINE test_attr_info_by_idx SUBROUTINE attr_info_by_idx_check(obj_id, attrname, n, use_index, total_error ) USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE @@ -1091,6 +1097,7 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error) !****************************************************************/ USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE @@ -1412,6 +1419,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error) !****************************************************************/ USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE @@ -1773,6 +1781,7 @@ SUBROUTINE test_attr_shared_delete(fcpl, fapl, total_error) !****************************************************************/ USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE @@ -2056,6 +2065,7 @@ SUBROUTINE test_attr_dense_open( fcpl, fapl, total_error) !****************************************************************/ USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE @@ -2207,6 +2217,7 @@ END SUBROUTINE test_attr_dense_open SUBROUTINE test_attr_dense_verify(loc_id, max_attr, total_error) USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE @@ -2302,6 +2313,7 @@ END SUBROUTINE test_attr_dense_verify SUBROUTINE test_attr_corder_create_basic( fcpl, fapl, total_error ) USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE @@ -2424,6 +2436,7 @@ END SUBROUTINE test_attr_corder_create_basic SUBROUTINE test_attr_basic_write(fapl, total_error) USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE @@ -2623,6 +2636,7 @@ END SUBROUTINE test_attr_basic_write SUBROUTINE test_attr_many(new_format, fcpl, fapl, total_error) USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE @@ -2740,6 +2754,7 @@ END SUBROUTINE test_attr_many SUBROUTINE attr_open_check(fid, dsetname, obj_id, max_attrs, total_error ) USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: fid |