mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r15749] Description:

Browse Source 
Removed blank lines
This commit is contained in:
Scot Breitenfeld 2008-10-01 14:57:52 -05:00
parent 8500d30e82
commit 8e9bb8af7c
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fortran/test/fortranlib_test.f90
View File

@ -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(*,*) ' ============================================ '

1
fortran/test/tH5T.f90
View File

@ -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)