[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

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