diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2002-10-08 21:43:49 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2002-10-08 21:43:49 (GMT) |
commit | 84276675aaa6c73cff2cb2aaab6e3526f6408340 (patch) | |
tree | 7673bc7743c3693ba75e21d110ecabc2faff412a /fortran/test/tH5A.f90 | |
parent | ec65ddbef69ca67f0b40f06e45694d8ea076692e (diff) | |
download | hdf5-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/test/tH5A.f90')
-rw-r--r-- | fortran/test/tH5A.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
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 |