summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--fortran/test/fortranlib_test.f902
-rw-r--r--fortran/test/fortranlib_test_1_8.f902
-rw-r--r--fortran/test/tH5F.f905
3 files changed, 4 insertions, 5 deletions
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90
index 742e98b..f44e373 100644
--- a/fortran/test/fortranlib_test.f90
+++ b/fortran/test/fortranlib_test.f90
@@ -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(*,*)
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