diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-09-27 19:20:09 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-09-27 19:20:09 (GMT) |
| commit | 32a131ea70f988d35bed87631c9cec68b2388ba5 (patch) | |
| tree | afbd278b07db75df7e40393095b41128569e40b8 /fortran/src/H5f90kit.c | |
| parent | a81cc2ac7ef875999f01a91a9a492e19da94ce56 (diff) | |
| download | hdf5-32a131ea70f988d35bed87631c9cec68b2388ba5.zip hdf5-32a131ea70f988d35bed87631c9cec68b2388ba5.tar.gz hdf5-32a131ea70f988d35bed87631c9cec68b2388ba5.tar.bz2 | |
[svn-r22825] Fix for: HDFFV-7903 Fortran problem writing control character to a dataset
Tested: (jam, gfortran)
Diffstat (limited to 'fortran/src/H5f90kit.c')
| -rw-r--r-- | fortran/src/H5f90kit.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/src/H5f90kit.c b/fortran/src/H5f90kit.c index 059685e..0bc721f 100644 --- a/fortran/src/H5f90kit.c +++ b/fortran/src/H5f90kit.c @@ -53,7 +53,7 @@ HD5f2cstring(_fcd fdesc, size_t len) /* Search for the end of the string */ str = _fcdtocp(fdesc); - for(i = (int)len - 1; i >= 0 && !HDisgraph((int)str[i]); i--) + for(i = (int)len - 1; i >= 0 && HDisspace((int)str[i]) && str[i] == ' '; i--) /*EMPTY*/; /* Allocate C string */ |