[svn-r10800]

Purpose: Bug fix

Description: The definitions of 2 private functions(test_family_opens()
and test_multi_opens()) fell below the use of them.  g++ on sleipnir
complained they weren't declared.

Solution: Moved the definitions above the use of them.  Problem solved.

Platforms tested: sleipnir - the only platform complained.

1 files changed, 77 insertions, 77 deletions

diff --git a/test/file_handle.c b/test/file_handle.c
index 6a57cb4..81b5934 100644
--- a/test/file_handle.c
+++ b/test/file_handle.c
@@ -192,7 +192,73 @@ error:
     } H5E_END_TRY;
     return -1;
 }
- 
+
+
+/*-------------------------------------------------------------------------
+ * Function:    test_family_opens
+ *
+ * Purpose:     Private function for test_family() to tests wrong ways of
+ *              reopening family file.
+ *
+ * Return:      Success:        exit(0)
+ *
+ *              Failure:        exit(1)
+ *
+ * Programmer:  Raymond Lu
+ *              Thursday, May 19, 2005
+ *
+ * Modifications:
+ *-------------------------------------------------------------------------
+ */
+static herr_t
+test_family_opens(char *fname, hid_t fa_pl)
+{
+    hid_t file;
+    char first_name[1024];
+    char wrong_name[1024];
+    int i;
+
+    /* Case 1: reopen file with 1st member file name and default property list */ 
+    sprintf(first_name, fname, 0);
+    
+    H5E_BEGIN_TRY {
+        file=H5Fopen(first_name, H5F_ACC_RDWR, H5P_DEFAULT);
+    } H5E_END_TRY;
+
+    /* Case 2: reopen file with correct name template but default property list */
+    H5E_BEGIN_TRY {
+        file=H5Fopen(fname, H5F_ACC_RDWR, H5P_DEFAULT);
+    } H5E_END_TRY;
+
+    /* Case 3: reopen file with wrong member size */
+    if(H5Pset_fapl_family(fa_pl, 128, H5P_DEFAULT)<0)
+        goto error;
+
+    H5E_BEGIN_TRY {
+        file=H5Fopen(fname, H5F_ACC_RDWR, fa_pl);
+    } H5E_END_TRY;
+    
+    /* Case 4: reopen file with wrong name template */
+    strcpy(wrong_name, fname);
+    for(i=0; i<1024; i++) {
+        if(wrong_name[i] == '5') {
+            wrong_name[i] = '4';
+            break;
+        }
+    }
+
+    if(H5Pset_fapl_family(fa_pl, FAMILY_SIZE, H5P_DEFAULT)<0)
+        goto error;
+
+    H5E_BEGIN_TRY {
+        file=H5Fopen(wrong_name, H5F_ACC_RDWR, fa_pl);
+    } H5E_END_TRY;
+
+    return 0;
+error:
+    return -1;
+}
+
 
 /*-------------------------------------------------------------------------
  * Function:    test_family
@@ -355,10 +421,10 @@ error:
 
 
 /*-------------------------------------------------------------------------
- * Function:    test_family_opens
+ * Function:    test_multi_opens
  *
- * Purpose:     Private function for test_family() to tests wrong ways of
- *              reopening family file.
+ * Purpose:     Private function for test_multi() to tests wrong ways of
+ *              reopening multi file.
  *
  * Return:      Success:        exit(0)
  *
@@ -371,47 +437,18 @@ error:
  *-------------------------------------------------------------------------
  */
 static herr_t
-test_family_opens(char *fname, hid_t fa_pl)
+test_multi_opens(char *fname, hid_t fa_pl)
 {
     hid_t file;
-    char first_name[1024];
-    char wrong_name[1024];
-    int i;
-
-    /* Case 1: reopen file with 1st member file name and default property list */ 
-    sprintf(first_name, fname, 0);
-    
-    H5E_BEGIN_TRY {
-        file=H5Fopen(first_name, H5F_ACC_RDWR, H5P_DEFAULT);
-    } H5E_END_TRY;
-
-    /* Case 2: reopen file with correct name template but default property list */
-    H5E_BEGIN_TRY {
-        file=H5Fopen(fname, H5F_ACC_RDWR, H5P_DEFAULT);
-    } H5E_END_TRY;
-
-    /* Case 3: reopen file with wrong member size */
-    if(H5Pset_fapl_family(fa_pl, 128, H5P_DEFAULT)<0)
-        goto error;
-
-    H5E_BEGIN_TRY {
-        file=H5Fopen(fname, H5F_ACC_RDWR, fa_pl);
-    } H5E_END_TRY;
-    
-    /* Case 4: reopen file with wrong name template */
-    strcpy(wrong_name, fname);
-    for(i=0; i<1024; i++) {
-        if(wrong_name[i] == '5') {
-            wrong_name[i] = '4';
-            break;
-        }
-    }
+    char  super_name[1024];     /*name string "%%s-s.h5"*/
+    char  sf_name[1024];        /*name string "multi_file-s.h5"*/
 
-    if(H5Pset_fapl_family(fa_pl, FAMILY_SIZE, H5P_DEFAULT)<0)
-        goto error;
+    /* Case: reopen with the name of super file and default property list */ 
+    sprintf(super_name, "%%s-%c.h5", 's');
+    sprintf(sf_name, super_name, fname);
 
     H5E_BEGIN_TRY {
-        file=H5Fopen(wrong_name, H5F_ACC_RDWR, fa_pl);
+        file=H5Fopen(sf_name, H5F_ACC_RDWR, H5P_DEFAULT);
     } H5E_END_TRY;
 
     return 0;
@@ -586,43 +623,6 @@ error:
 
 
 /*-------------------------------------------------------------------------
- * Function:    test_multi_opens
- *
- * Purpose:     Private function for test_multi() to tests wrong ways of
- *              reopening multi file.
- *
- * Return:      Success:        exit(0)
- *
- *              Failure:        exit(1)
- *
- * Programmer:  Raymond Lu
- *              Thursday, May 19, 2005
- *
- * Modifications:
- *-------------------------------------------------------------------------
- */
-static herr_t
-test_multi_opens(char *fname, hid_t fa_pl)
-{
-    hid_t file;
-    char  super_name[1024];     /*name string "%%s-s.h5"*/
-    char  sf_name[1024];        /*name string "multi_file-s.h5"*/
-
-    /* Case: reopen with the name of super file and default property list */ 
-    sprintf(super_name, "%%s-%c.h5", 's');
-    sprintf(sf_name, super_name, fname);
-
-    H5E_BEGIN_TRY {
-        file=H5Fopen(sf_name, H5F_ACC_RDWR, H5P_DEFAULT);
-    } H5E_END_TRY;
-
-    return 0;
-error:
-    return -1;
-}
-
-
-/*-------------------------------------------------------------------------
  * Function:    main
  * 
  * Purpose:     Tests the file handle interface(H5Fget_vfd_handle and