diff options
author | Quincey Koziol <koziol@koziol.gov> | 2020-01-04 16:05:22 (GMT) |
---|---|---|
committer | Quincey Koziol <koziol@koziol.gov> | 2020-01-04 16:05:22 (GMT) |
commit | 9a155a538bb179c794c75780757ef3e6af3c9b28 (patch) | |
tree | 771322bef14326f5bbd8e1cb9b261baf0b22faff /fortran/test/fortranlib_test_F03.F90 | |
parent | 617e2166b26f6b872281888c4f9f2486004a1a58 (diff) | |
download | hdf5-9a155a538bb179c794c75780757ef3e6af3c9b28.zip hdf5-9a155a538bb179c794c75780757ef3e6af3c9b28.tar.gz hdf5-9a155a538bb179c794c75780757ef3e6af3c9b28.tar.bz2 |
Cherry pick of 0225e6d5969
Diffstat (limited to 'fortran/test/fortranlib_test_F03.F90')
-rw-r--r-- | fortran/test/fortranlib_test_F03.F90 | 6 |
1 files changed, 3 insertions, 3 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 |