mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-02-17 16:10:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

remove superfluous initialization, fixes issue with Cray compiler (Crusher) (#1828)

Browse Source
This commit is contained in:
Scot Breitenfeld 2022-06-29 10:44:21 -05:00 committed by GitHub
parent 9e00089307
commit cb424b2c45
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fortran/test/tH5O_F03.F90
View File

@ -209,7 +209,6 @@ CONTAINS
! Since the name is generated in C and passed to a Fortran string, it ! 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. ! will be NULL terminated, so we need to find the end of the string.
len = 1
DO len = 1, 180 DO len = 1, 180
IF(name(len) .EQ. C_NULL_CHAR) EXIT IF(name(len) .EQ. C_NULL_CHAR) EXIT
ENDDO ENDDO