diff options
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/read.c | 2 |
2 files changed, 8 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3c63896e2ee..936163965c7 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +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-06 Janus Weil <janus@gcc.gnu.org> PR fortran/41478 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; |