diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2009-07-22 15:28:49 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2009-07-22 15:28:49 (GMT) |
commit | 254eb548cc4bc1ee158ee6e4ef442d762e3dfd46 (patch) | |
tree | 604c9715cf033814c9a14c57f8b1fb7be7e06317 /fortran/test | |
parent | b88498636fa193053676accb2c3bde278cb08ef5 (diff) | |
download | hdf5-254eb548cc4bc1ee158ee6e4ef442d762e3dfd46.zip hdf5-254eb548cc4bc1ee158ee6e4ef442d762e3dfd46.tar.gz hdf5-254eb548cc4bc1ee158ee6e4ef442d762e3dfd46.tar.bz2 |
[svn-r17223] Merged the fortran trunk into the branch:
svn merge -r 17164:17222 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran
tested: smirom (ifort, pgf90, gfortran, g95), linew
Diffstat (limited to 'fortran/test')
-rw-r--r-- | fortran/test/fortranlib_test.f90 | 2 | ||||
-rw-r--r-- | fortran/test/fortranlib_test_1_8.f90 | 2 | ||||
-rw-r--r-- | fortran/test/tH5F.f90 | 5 |
3 files changed, 4 insertions, 5 deletions
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90 index a544339..8ecbcf7 100644 --- a/fortran/test/fortranlib_test.f90 +++ b/fortran/test/fortranlib_test.f90 @@ -74,7 +74,7 @@ PROGRAM fortranlibtest 8 CONTINUE ret_total_error = 0 - CALL file_space(cleanup, ret_total_error) + CALL file_space("file_space",cleanup, ret_total_error) CALL write_test_status(ret_total_error, ' File free space test', total_error) ! write(*,*) diff --git a/fortran/test/fortranlib_test_1_8.f90 b/fortran/test/fortranlib_test_1_8.f90 index 6158c16..9ab6743 100644 --- a/fortran/test/fortranlib_test_1_8.f90 +++ b/fortran/test/fortranlib_test_1_8.f90 @@ -51,7 +51,7 @@ PROGRAM fortranlibtest WRITE(*,*) ret_total_error = 0 - CALL file_space(cleanup, ret_total_error) + CALL file_space("file_space_1_8",cleanup, ret_total_error) CALL write_test_status(ret_total_error, & ' Testing file free space', & total_error) diff --git a/fortran/test/tH5F.f90 b/fortran/test/tH5F.f90 index e39d0ee..af2d7d6 100644 --- a/fortran/test/tH5F.f90 +++ b/fortran/test/tH5F.f90 @@ -691,15 +691,14 @@ ! The following subroutine tests h5fget_freespace_f ! - SUBROUTINE file_space(cleanup, total_error) + SUBROUTINE file_space(filename, cleanup, total_error) USE HDF5 ! This module contains all necessary modules IMPLICIT NONE + CHARACTER(*), INTENT(IN) :: filename LOGICAL, INTENT(IN) :: cleanup INTEGER, INTENT(OUT) :: total_error INTEGER :: error - ! - CHARACTER(LEN=10), PARAMETER :: filename = "file_space" CHARACTER(LEN=3), PARAMETER :: grpname = "grp" CHARACTER(LEN=80) :: fix_filename |