diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-12-08 14:12:06 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-12-08 14:12:06 +0000 |
| commit | 9f0829c97861669c9d03358ca402a762da1d582d (patch) | |
| tree | 25bdf186073490c914c868c8a4437898f364e054 /libgfortran/io/read.c | |
| parent | a4da9a838a736ecdb4a2dd71198c687d85468b83 (diff) | |
| download | gcc-9f0829c97861669c9d03358ca402a762da1d582d.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155088 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/read.c')
| -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 a5cb97a00e5..03046b943b9 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; |