diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2022-06-29 15:44:21 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-06-29 15:44:21 (GMT) |
| commit | cb424b2c456c85bcb7c338cc96923dfa43b038be (patch) | |
| tree | c0a8a720892859ee0561233e3d497294159d3def /fortran | |
| parent | 9e000893077bb3a897097cb05d6bcfde5227f70f (diff) | |
| download | hdf5-cb424b2c456c85bcb7c338cc96923dfa43b038be.zip hdf5-cb424b2c456c85bcb7c338cc96923dfa43b038be.tar.gz hdf5-cb424b2c456c85bcb7c338cc96923dfa43b038be.tar.bz2 | |
remove superfluous initialization, fixes issue with Cray compiler (Crusher) (#1828)
Diffstat (limited to 'fortran')
| -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 |