mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-02-23 16:20:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r17222] Description:

Browse Source 
Added filename argument to file_space routine to avoid conflicts of the files when running fortranlib_test_1_8.f90 and fortranlib_test.f90 at the same time (i.e. when running the tests in parallel).

tested: smirom (ifort, pgf90, g95, gfortran), linew
This commit is contained in:
Scot Breitenfeld 2009-07-22 10:25:03 -05:00
parent 0f9fd0af2d
commit 2bb5d04019
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/test/fortranlib_test.f90
View File

@ -75,7 +75,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(*,*)

2
fortran/test/fortranlib_test_1_8.f90
View File

@ -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)

5
fortran/test/tH5F.f90
View File

@ -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