diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2005-09-08 19:37:05 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2005-09-08 19:37:05 (GMT) |
| commit | 4a998f8a8655b3ea59054a20cb1fcc11fedd868c (patch) | |
| tree | f807ef4962528c64b82e27ad42767143bb95c13e /fortran/test/tH5T.f90 | |
| parent | 244d72b6f5a62d91c4b922f45ef7217ca24f82b9 (diff) | |
| download | hdf5-4a998f8a8655b3ea59054a20cb1fcc11fedd868c.zip hdf5-4a998f8a8655b3ea59054a20cb1fcc11fedd868c.tar.gz hdf5-4a998f8a8655b3ea59054a20cb1fcc11fedd868c.tar.bz2 | |
[svn-r11373] Purpose: Maintenance/improvement
Description: Fixeda typo in an error message
Solution:
Platforms tested: heping with g95 (-r8, -d8)
mir with ifc (-r16, -r8)
Misc. update:
Diffstat (limited to 'fortran/test/tH5T.f90')
| -rw-r--r-- | fortran/test/tH5T.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/test/tH5T.f90 b/fortran/test/tH5T.f90 index 5056596..f64cb32 100644 --- a/fortran/test/tH5T.f90 +++ b/fortran/test/tH5T.f90 @@ -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 |