From 84276675aaa6c73cff2cb2aaab6e3526f6408340 Mon Sep 17 00:00:00 2001
From: Elena Pourmal <epourmal@hdfgroup.org>
Date: Tue, 8 Oct 2002 16:43:49 -0500
Subject: [svn-r5967] Purpose:     Make Intel (and other) C and F90 compilers
 happy Description:     There were several warnings about missing function
 prototypes and     wrongly defined string in the test program. Solution:    
 Fix the code to include proper header files and function prototypes.     Fix
 the string. Platforms tested:     Platinum (IA32) and arabica (Solaris 2.7)

---
 fortran/test/t.h      | 3 +++
 fortran/test/tH5A.f90 | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/fortran/test/t.h b/fortran/test/t.h
index 980e597..28acdb1 100644
--- a/fortran/test/t.h
+++ b/fortran/test/t.h
@@ -15,6 +15,9 @@
 
 #include "../../src/hdf5.h"
 #include "../src/H5f90i.h"
+#include "../src/H5f90proto.h"
+
+char *h5_fixname(const char *base_name, hid_t fapl, char *fullname, size_t size);
 
 /*
  *  Functions from t.c
diff --git a/fortran/test/tH5A.f90 b/fortran/test/tH5A.f90
index 7f984e5..86deaac 100644
--- a/fortran/test/tH5A.f90
+++ b/fortran/test/tH5A.f90
@@ -26,7 +26,7 @@
      LOGICAL, INTENT(IN)  :: cleanup
      INTEGER, INTENT(OUT) :: total_error 
 
-     CHARACTER(LEN=5), PARAMETER :: filename = "atest.h5"    !File name
+     CHARACTER(LEN=5), PARAMETER :: filename = "atest"    !File name
      CHARACTER(LEN=80) :: fix_filename 
      CHARACTER(LEN=9), PARAMETER :: dsetname = "atestdset"        !Dataset name
      CHARACTER(LEN=11), PARAMETER :: aname = "attr_string"   !String Attribute name
-- 
cgit v0.12