summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/fortranlib_test_F03.F906
-rw-r--r--fortran/test/tH5O_F03.F9012
2 files changed, 9 insertions, 9 deletions
diff --git a/fortran/test/fortranlib_test_F03.F90 b/fortran/test/fortranlib_test_F03.F90
index 9a74120..808cb4d 100644
--- a/fortran/test/fortranlib_test_F03.F90
+++ b/fortran/test/fortranlib_test_F03.F90
@@ -153,7 +153,7 @@ PROGRAM fortranlibtest_F03
! write(*,*)
! write(*,*) '========================================='
-! write(*,*) 'Testing GROUP interface '
+! write(*,*) 'Testing OBJECT interface '
! write(*,*) '========================================='
ret_total_error = 0
@@ -161,11 +161,11 @@ PROGRAM fortranlibtest_F03
CALL write_test_status(ret_total_error, ' Testing object functions ', total_error)
ret_total_error = 0
- CALL obj_visit(ret_total_error)
+ CALL test_obj_visit(ret_total_error)
CALL write_test_status(ret_total_error, ' Testing object visiting functions ', total_error)
ret_total_error = 0
- CALL obj_info(ret_total_error)
+ CALL test_obj_info(ret_total_error)
CALL write_test_status(ret_total_error, ' Testing object info functions ', total_error)
ret_total_error = 0
diff --git a/fortran/test/tH5O_F03.F90 b/fortran/test/tH5O_F03.F90
index bc3668c..5b446a4 100644
--- a/fortran/test/tH5O_F03.F90
+++ b/fortran/test/tH5O_F03.F90
@@ -486,11 +486,11 @@ END SUBROUTINE test_h5o_refcount
!****************************************************************
!**
-!** test_h5o_refcount(): Test H5O visit functions.
+!** test_obj_visit(): Test H5O visit functions.
!**
!****************************************************************
-SUBROUTINE obj_visit(total_error)
+SUBROUTINE test_obj_visit(total_error)
USE HDF5
USE TH5_MISC
@@ -648,15 +648,15 @@ SUBROUTINE obj_visit(total_error)
CALL h5fclose_f(fid, error)
CALL check("h5fclose_f",error, total_error)
-END SUBROUTINE obj_visit
+END SUBROUTINE test_obj_visit
!****************************************************************
!**
-!** test_h5o_refcount(): Test H5O info functions.
+!** test_obj_info(): Test H5O info functions.
!**
!****************************************************************
-SUBROUTINE obj_info(total_error)
+SUBROUTINE test_obj_info(total_error)
USE HDF5
USE TH5_MISC
@@ -796,7 +796,7 @@ SUBROUTINE obj_info(total_error)
CALL h5fclose_f(fid, error)
CALL check("h5fclose_f", error, total_error)
-END SUBROUTINE obj_info
+END SUBROUTINE test_obj_info
!-------------------------------------------------------------------------
! Function: build_visit_file