summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2002-10-08 21:43:49 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2002-10-08 21:43:49 (GMT)
commit84276675aaa6c73cff2cb2aaab6e3526f6408340 (patch)
tree7673bc7743c3693ba75e21d110ecabc2faff412a /fortran
parentec65ddbef69ca67f0b40f06e45694d8ea076692e (diff)
downloadhdf5-84276675aaa6c73cff2cb2aaab6e3526f6408340.zip
hdf5-84276675aaa6c73cff2cb2aaab6e3526f6408340.tar.gz
hdf5-84276675aaa6c73cff2cb2aaab6e3526f6408340.tar.bz2
[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)
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/t.h3
-rw-r--r--fortran/test/tH5A.f902
2 files changed, 4 insertions, 1 deletions
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