diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2009-07-23 23:10:30 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2009-07-23 23:10:30 (GMT) |
| commit | 51fd7c574f80ba3031be63c1a88fb08876bf1d93 (patch) | |
| tree | 3c3debf3b39f0eac9aa431a016bd4e98f974a7c9 /fortran/test/tH5F.f90 | |
| parent | 239c45e0f5845406f931f612cf1e88a2203917ae (diff) | |
| download | hdf5-51fd7c574f80ba3031be63c1a88fb08876bf1d93.zip hdf5-51fd7c574f80ba3031be63c1a88fb08876bf1d93.tar.gz hdf5-51fd7c574f80ba3031be63c1a88fb08876bf1d93.tar.bz2 | |
[svn-r17233] Description:
Bring r17209:17230 from trunk to revise_chunks branch.
Tested on:
Mac OS X/32 10.5.7 (amazon) debug
h5committest not required on this branch
Diffstat (limited to 'fortran/test/tH5F.f90')
| -rw-r--r-- | fortran/test/tH5F.f90 | 5 |
1 files changed, 2 insertions, 3 deletions
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 |