summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2003-04-15 22:34:43 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2003-04-15 22:34:43 (GMT)
commit0d5bd9fe3ac79d53cb923a689935a409bb266f05 (patch)
treec09c1cda28d37cb52cb40b871d22a71625b0ea22 /fortran
parent4f6535b588e96b23d4c019fd90feb90362332340 (diff)
downloadhdf5-0d5bd9fe3ac79d53cb923a689935a409bb266f05.zip
hdf5-0d5bd9fe3ac79d53cb923a689935a409bb266f05.tar.gz
hdf5-0d5bd9fe3ac79d53cb923a689935a409bb266f05.tar.bz2
[svn-r6685]
Purpose: Added copyright statement; cleaned code and fixed bugs for Windows and Cray T90IEEE Description: Windows and Cray ports exposed few typos in the source code that caused tests to fail Solution: Added copyright statement and clean the code. Platforms tested: CRAY T90IEEE, arabica, modi4 with parallel, Windows 2000 Only static tests (both debug and release) passed on Windows. DLLs have multiple problems ;-) Misc. update:
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/t.c1
-rw-r--r--fortran/test/tH5I.f9014
-rw-r--r--fortran/test/tH5Z.f9016
-rw-r--r--fortran/test/tf.f9012
4 files changed, 41 insertions, 2 deletions
diff --git a/fortran/test/t.c b/fortran/test/t.c
index ed18c0f..dfda554 100644
--- a/fortran/test/t.c
+++ b/fortran/test/t.c
@@ -34,7 +34,6 @@ nh5_fixname_c(_fcd base_name, int_f *base_namelen, hid_t_f* fapl, _fcd full_name
int ret_value = -1;
char *c_base_name;
int c_base_namelen;
- int c_full_namelen;
char *c_full_name;
hid_t c_fapl;
diff --git a/fortran/test/tH5I.f90 b/fortran/test/tH5I.f90
index 3c5855b..c82baf9 100644
--- a/fortran/test/tH5I.f90
+++ b/fortran/test/tH5I.f90
@@ -1,4 +1,18 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! Copyright by the Board of Trustees of the University of Illinois. *
+! All rights reserved. *
+! *
+! This file is part of HDF5. The full HDF5 copyright notice, including *
+! terms governing use, modification, and redistribution, is contained in *
+! the files COPYING and Copyright.html. COPYING can be found at the root *
+! of the source code distribution tree; Copyright.html can be found at the *
+! root level of an installed copy of the electronic HDF5 document set and *
+! is linked from the top-level documents page. It can also be found at *
+! http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *
+! access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+!
SUBROUTINE identifier_test(cleanup, total_error)
! This subroutine tests following functionalities: h5iget_type_f
diff --git a/fortran/test/tH5Z.f90 b/fortran/test/tH5Z.f90
index bc44344..575ef0b 100644
--- a/fortran/test/tH5Z.f90
+++ b/fortran/test/tH5Z.f90
@@ -1,4 +1,18 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! Copyright by the Board of Trustees of the University of Illinois. *
+! All rights reserved. *
+! *
+! This file is part of HDF5. The full HDF5 copyright notice, including *
+! terms governing use, modification, and redistribution, is contained in *
+! the files COPYING and Copyright.html. COPYING can be found at the root *
+! of the source code distribution tree; Copyright.html can be found at the *
+! root level of an installed copy of the electronic HDF5 document set and *
+! is linked from the top-level documents page. It can also be found at *
+! http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *
+! access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+!
SUBROUTINE filters_test(cleanup, total_error)
! This subroutine tests following functionalities: h5zfilter_avail_f, h5zunregister_f
@@ -242,7 +256,7 @@
!
! Read the dataset.
!
- CALL h5dread_f (dset_id, H5T_NATIVE_INTEGER, data_out, dims, error)
+ CALL h5dread_f (dset_id, H5T_NATIVE_INTEGER, data_out, data_dims_b, error)
CALL check("h5dread_f", error, total_error)
!
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90
index ef4c784..828785c 100644
--- a/fortran/test/tf.f90
+++ b/fortran/test/tf.f90
@@ -18,6 +18,10 @@
! This file contains subroutines which are used in
! all the hdf5 fortran tests
!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: check
+!DEC$endif
SUBROUTINE check(string,error,total_error)
CHARACTER(LEN=*) :: string
@@ -51,6 +55,10 @@
!----------------------------------------------------------------------
SUBROUTINE h5_fixname_f(base_name, full_name, fapl, hdferr)
!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5_fixname_f
+!DEC$endif
USE H5GLOBAL
IMPLICIT NONE
CHARACTER(LEN=*), INTENT(IN) :: base_name ! base name
@@ -107,6 +115,10 @@
!----------------------------------------------------------------------
SUBROUTINE h5_cleanup_f(base_name, fapl, hdferr)
!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5_cleanup_f
+!DEC$endif
USE H5GLOBAL
IMPLICIT NONE
CHARACTER(LEN=*), INTENT(IN) :: base_name ! base name