summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-10-01 19:57:52 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-10-01 19:57:52 (GMT)
commit8e9bb8af7ccf58e7665a0af4a99c946ad8cb92b2 (patch)
tree448769b6d59b139803087bcd06c6621c514e7226 /fortran
parent8500d30e8216150714280baec6cf7c6c7c445b33 (diff)
downloadhdf5-8e9bb8af7ccf58e7665a0af4a99c946ad8cb92b2.zip
hdf5-8e9bb8af7ccf58e7665a0af4a99c946ad8cb92b2.tar.gz
hdf5-8e9bb8af7ccf58e7665a0af4a99c946ad8cb92b2.tar.bz2
[svn-r15749] Description:
Removed blank lines
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/fortranlib_test.f906
-rw-r--r--fortran/test/tH5T.f901
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)