From 4a998f8a8655b3ea59054a20cb1fcc11fedd868c Mon Sep 17 00:00:00 2001
From: Elena Pourmal <epourmal@hdfgroup.org>
Date: Thu, 8 Sep 2005 14:37:05 -0500
Subject: [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:
---
 fortran/test/tH5T.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v0.12