diff options
-rw-r--r-- | fortran/test/tH5O_F03.F90 | 1 |
1 files changed, 0 insertions, 1 deletions
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 |