diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-12-08 15:12:06 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-12-08 15:12:06 +0100 |
| commit | 17314cd9eb95fd1d2390cf6bceed6c329194ddf8 (patch) | |
| tree | 25bdf186073490c914c868c8a4437898f364e054 /libgfortran/io | |
| parent | 5d7cefe516e70313d60ce9f620eb4eb3f5bfc6f9 (diff) | |
| download | gcc-17314cd9eb95fd1d2390cf6bceed6c329194ddf8.zip gcc-17314cd9eb95fd1d2390cf6bceed6c329194ddf8.tar.gz gcc-17314cd9eb95fd1d2390cf6bceed6c329194ddf8.tar.bz2 | |
re PR libfortran/41711 ([F08] BOZ edit-descr does not support reading large kind reals)
2009-12-08 Tobias Burnus <burnus@net-b.de>
PR fortran/41711
* io/read.c (set_integer): Support kind=10 for reading
real/complex BOZ.
2009-12-08 Tobias Burnus <burnus@net-b.de>
PR fortran/41711
* gfortran.dg/boz_15.f90: New test.
From-SVN: r155088
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/read.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index a5cb97a..03046b9 100644 --- a/libgfortran/io/read.c +++ b/libgfortran/io/read.c @@ -45,6 +45,8 @@ set_integer (void *dest, GFC_INTEGER_LARGEST value, int length) switch (length) { #ifdef HAVE_GFC_INTEGER_16 +/* length=10 comes about for kind=10 real/complex BOZ, cf. PR41711. */ + case 10: case 16: { GFC_INTEGER_16 tmp = value; |