From cb424b2c456c85bcb7c338cc96923dfa43b038be Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Wed, 29 Jun 2022 10:44:21 -0500
Subject: remove superfluous initialization, fixes issue with Cray compiler
 (Crusher) (#1828)

---
 fortran/test/tH5O_F03.F90 | 1 -
 1 file changed, 1 deletion(-)

diff --git a/fortran/test/tH5O_F03.F90 b/fortran/test/tH5O_F03.F90
index 2f9bcad..e8f7c96 100644
--- a/fortran/test/tH5O_F03.F90
+++ b/fortran/test/tH5O_F03.F90
@@ -209,7 +209,6 @@ CONTAINS
     ! Since the name is generated in C and passed to a Fortran string, it
     ! will be NULL terminated, so we need to find the end of the string.
 
-    len = 1
     DO len = 1, 180
        IF(name(len) .EQ. C_NULL_CHAR) EXIT
     ENDDO
-- 
cgit v0.12