mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-18 15:15:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r11373] Purpose: Maintenance/improvement

Browse Source 
Description: Fixeda typo in an error message

Solution:

Platforms tested: heping with g95 (-r8, -d8)
                  mir with ifc (-r16, -r8)

Misc. update:
This commit is contained in:
Elena Pourmal 2005-09-08 14:37:05 -05:00
parent 244d72b6f5
commit 4a998f8a86
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/test/tH5T.f90
View File

@ -479,7 +479,7 @@
CALL check("h5dread_f", error, total_error)
do i = 1, dimsize
if (real_member_out(i) .ne. real_member(i)) then
write(*,*) " Wrong double precision data is read back "
write(*,*) " Wrong real precision data is read back "
total_error = total_error + 1
endif
enddo