diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2013-09-06 20:27:13 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2013-09-06 20:27:13 (GMT) |
| commit | f825256c876fdd8e2f92002f71ef96e43a24b2a1 (patch) | |
| tree | 11767c391eb5813cc09d146519abdf97593d09cb /fortran/test/tH5G_1_8.f90 | |
| parent | 79c8e26fa7d8bb3e3ab59e5a69ea37cc385748c0 (diff) | |
| download | hdf5-f825256c876fdd8e2f92002f71ef96e43a24b2a1.zip hdf5-f825256c876fdd8e2f92002f71ef96e43a24b2a1.tar.gz hdf5-f825256c876fdd8e2f92002f71ef96e43a24b2a1.tar.bz2 | |
[svn-r24113] Description:
Reduce warnings w/gfortran in FORTRAN build by declaring interface for
utility test routines.
Tested on:
Mac OSX/64 10.8.4 (amazon) w/gcc/g++/gfortran 4.8
Diffstat (limited to 'fortran/test/tH5G_1_8.f90')
| -rw-r--r-- | fortran/test/tH5G_1_8.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/fortran/test/tH5G_1_8.f90 b/fortran/test/tH5G_1_8.f90 index fd55ba9..7979846 100644 --- a/fortran/test/tH5G_1_8.f90 +++ b/fortran/test/tH5G_1_8.f90 @@ -30,6 +30,7 @@ !***** SUBROUTINE group_test(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 @@ -134,6 +135,7 @@ END SUBROUTINE group_test SUBROUTINE group_info(cleanup, fapl, total_error) USE HDF5 ! This module contains all necessary modules + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER, INTENT(OUT) :: total_error @@ -450,6 +452,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error) SUBROUTINE timestamps(cleanup, fapl, total_error) USE HDF5 ! This module contains all necessary modules + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER, INTENT(OUT) :: total_error @@ -646,6 +649,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error) SUBROUTINE mklinks(fapl, total_error) USE HDF5 ! This module contains all necessary modules + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER, INTENT(OUT) :: total_error @@ -741,6 +745,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error) SUBROUTINE test_move_preserves(fapl_id, total_error) USE HDF5 ! This module contains all necessary modules + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER, INTENT(OUT) :: total_error @@ -948,6 +953,7 @@ SUBROUTINE lifecycle(cleanup, fapl2, total_error) USE HDF5 ! This module contains all necessary modules + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER, INTENT(OUT) :: total_error @@ -1096,6 +1102,7 @@ SUBROUTINE lifecycle(cleanup, fapl2, total_error) ! USE ISO_C_BINDING USE HDF5 ! This module contains all necessary modules + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER, INTENT(OUT) :: total_error @@ -1165,6 +1172,7 @@ END SUBROUTINE cklinks SUBROUTINE delete_by_idx(cleanup, fapl, total_error) USE HDF5 ! This module contains all necessary modules + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER, INTENT(OUT) :: total_error @@ -1406,6 +1414,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, & hard_link, use_index, total_error) USE HDF5 ! This module contains all necessary modules + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER, INTENT(INOUT) :: total_error @@ -1509,6 +1518,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, & SUBROUTINE test_lcpl(cleanup, fapl, total_error) USE HDF5 ! This module contains all necessary modules + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER, INTENT(INOUT) :: total_error @@ -1822,6 +1832,7 @@ END SUBROUTINE test_lcpl SUBROUTINE objcopy(fapl, total_error) USE HDF5 ! This module contains all necessary modules + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER, INTENT(INOUT) :: total_error @@ -1885,6 +1896,7 @@ END SUBROUTINE objcopy SUBROUTINE lapl_nlinks( fapl, total_error) USE HDF5 + USE H5FORT_TESTS ! This module contains all test routines IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: fapl |