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 | |
| 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')
| -rw-r--r-- | fortran/src/H5f90kit.c | 2 | ||||
| -rw-r--r-- | fortran/src/Makefile.in | 2 |
2 files changed, 1 insertions, 3 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 */ diff --git a/fortran/src/Makefile.in b/fortran/src/Makefile.in index 164f856..069846a5 100644 --- a/fortran/src/Makefile.in +++ b/fortran/src/Makefile.in @@ -307,7 +307,6 @@ FILTERS = @FILTERS@ FSEARCH_DIRS = @FSEARCH_DIRS@ GPFS = @GPFS@ GREP = @GREP@ -H5BLD_STATIC = @H5BLD_STATIC@ H5_CFLAGS = @H5_CFLAGS@ H5_CPPFLAGS = @H5_CPPFLAGS@ H5_CXXFLAGS = @H5_CXXFLAGS@ @@ -322,7 +321,6 @@ HAVE_DMALLOC = @HAVE_DMALLOC@ HAVE_FORTRAN_2003 = @HAVE_FORTRAN_2003@ HDF5_HL = @HDF5_HL@ HDF5_INTERFACES = @HDF5_INTERFACES@ -HDF5_USE_SHLIB = @HDF5_USE_SHLIB@ HDF_CXX = @HDF_CXX@ HDF_FORTRAN = @HDF_FORTRAN@ HDF_FORTRAN2003 = @HDF_FORTRAN2003@ |