From 08a5424f6031759ef2660b3c9f07ff0e69c9d8bd Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Fri, 28 Sep 2012 09:48:12 -0500 Subject: [svn-r22839] removed unused variable. tested: jam (pgi compiler) --- fortran/test/tH5T_F03.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/fortran/test/tH5T_F03.f90 b/fortran/test/tH5T_F03.f90 index cdb9372..dbd8b0a 100644 --- a/fortran/test/tH5T_F03.f90 +++ b/fortran/test/tH5T_F03.f90 @@ -1988,7 +1988,6 @@ SUBROUTINE t_regref(total_error) TYPE(C_PTR) :: f_ptr CHARACTER(LEN=ds2dim0) :: chrvar CHARACTER(LEN=20), DIMENSION(1:2) :: chrref_correct - TYPE(h5o_info_t) :: oinfo ! Object info struct chrvar = "The quick brown " READ(chrvar,'(16A1)') wdata2(1:16,1) -- cgit v0.12