diff --git a/fortran/test/tH5O_F03.F90 b/fortran/test/tH5O_F03.F90
index 2f9bcad354..e8f7c96495 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