From 8e9bb8af7ccf58e7665a0af4a99c946ad8cb92b2 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Wed, 1 Oct 2008 14:57:52 -0500 Subject: [svn-r15749] Description: Removed blank lines --- fortran/test/fortranlib_test.f90 | 6 +++--- fortran/test/tH5T.f90 | 1 - 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90 index 60a026b..bbc6a25 100644 --- a/fortran/test/fortranlib_test.f90 +++ b/fortran/test/fortranlib_test.f90 @@ -51,11 +51,11 @@ PROGRAM fortranlibtest total_error = total_error + 1 ENDIF WRITE(*,*) + ! CALL h5check_version_f(1,4,4,total_error) ! write(*,*) '=========================================' ! write(*,*) 'Testing FILE Interface ' ! write(*,*) '=========================================' - ret_total_error = 0 CALL mountingtest(cleanup, ret_total_error) @@ -154,7 +154,7 @@ PROGRAM fortranlibtest ret_total_error = 0 CALL compoundtest(cleanup, ret_total_error) CALL write_test_status(ret_total_error, ' Compound datatype test', total_error) - + ret_total_error = 0 CALL enumtest(cleanup, ret_total_error) CALL write_test_status(ret_total_error, ' Enum datatype test', total_error) @@ -225,7 +225,7 @@ PROGRAM fortranlibtest CALL vl_test_real(cleanup, ret_total_error) CALL vl_test_string(cleanup, ret_total_error) CALL write_test_status(ret_total_error, ' VL test', total_error) - + WRITE(*,*) WRITE(*,*) ' ============================================ ' diff --git a/fortran/test/tH5T.f90 b/fortran/test/tH5T.f90 index 7c81d6d..5a17a21 100644 --- a/fortran/test/tH5T.f90 +++ b/fortran/test/tH5T.f90 @@ -1118,7 +1118,6 @@ SUBROUTINE test_derived_flt(cleanup, total_error) CALL h5fclose_f(file,error) CALL check("h5fclose_f", error, total_error) - IF(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error) CALL check("h5_cleanup_f", error, total_error) -- cgit v0.12