From 9a38a8965c387417444407b149ef63a69cba985b Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Tue, 30 Dec 2008 12:30:17 -0500 Subject: [svn-r16235] Description: Cosmetic changes, Also tested -r16231 on: Jam (intel 10.1) Smirom (intel 10.1) --- fortran/test/tH5G_1_8.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/fortran/test/tH5G_1_8.f90 b/fortran/test/tH5G_1_8.f90 index 443b0e8..42dd617 100644 --- a/fortran/test/tH5G_1_8.f90 +++ b/fortran/test/tH5G_1_8.f90 @@ -39,7 +39,6 @@ SUBROUTINE group_test(cleanup, total_error) ! /* Check for FAPL to USE */ my_fapl = fapl2 - ret_total_error = 0 CALL mklinks(fapl2, ret_total_error) CALL write_test_status(ret_total_error, & @@ -613,7 +612,6 @@ SUBROUTINE group_info(cleanup, fapl, total_error) IF(cleanup) CALL h5_cleanup_f(prefix, H5P_DEFAULT_F, error) CALL check("h5_cleanup_f", error, total_error) - END SUBROUTINE timestamps !/*------------------------------------------------------------------------- -- cgit v0.12