mirrors/hdf5
2
0 Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2026-09-29 04:09:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r12778] Multi file driver test fails.

Browse Source 
Skipped until fix is found.

Tested on heping with pgf90.

Note:  Logic was wrong; as a result, the test was bypassed for all 
compilers except those (like Intel) that understand !DEC compiler directive. 

I confirmed that the test fails on heping with pgf90. The symptoms are the same:
1.6.5 h5dump can read multi files created by fortran test, 
but built h5dump fails with internal error.

 --This line, and those below, will be ignored--

M    test/fortranlib_test.f90
This commit is contained in:
Elena Pourmal committed 2006-10-18 21:07:16 -05:00
1 parent 5e4114b908
commit ef778326fd
1 file changed
+4 -8
Download Patch File Download Diff File Expand all files Collapse all files
fortran/test/fortranlib_test.f90
+4 -8
View File
@@ -237,19 +237,15 @@
write(*, fmt = e_format) error_string
total_error = total_error + external_total_error
!DEC$ if defined(H5_VMS)
goto 200
!DEC$ else
error_string = failure
! error_string = failure
error_string = skip
cleanup = .FALSE.
CALL multi_file_test(cleanup, multi_file_total_error)
IF (multi_file_total_error == 0) error_string = success
! CALL multi_file_test(cleanup, multi_file_total_error)
! IF (multi_file_total_error == 0) error_string = success
write(*, fmt = '(23a)', advance = 'no') ' Multi file driver test'
write(*, fmt = '(47x,a)', advance = 'no') ' '
write(*, fmt = e_format) error_string
total_error = total_error + multi_file_total_error
!DEC$ endif
200 continue
! write(*,*)
! write(*,*) '========================================='
! write(*,*) 'Testing ATTRIBUTE interface '