re PR fortran/38291 (Rejects I/O with POS= if FMT=*)
authorJerry DeLisle <jvdelisle@gcc.gnu.org>
Sat, 6 Dec 2008 04:13:34 +0000 (04:13 +0000)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Sat, 6 Dec 2008 04:13:34 +0000 (04:13 +0000)
commit4c934d41d257f2dc351383992abf783199695a21
tree1a43d93b6dfb18632fadb7aba84fb6dd58edb485
parenta2a6f3cf6be67b838c80b304a9bf29887b831d26
re PR fortran/38291 (Rejects I/O with POS= if FMT=*)

2008-12-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

PR fortran/38291
* io.c (match_dt_element): Use dt->pos in matcher.
(gfc_free_dt): Free dt->pos after use.
(gfc_resolve_dt): Use dt->pos in resolution of stream position tag.

2008-12-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

PR libfortran/38291
* io/transfer.c (data_transfer_init): Add checks for POS= valid range.
Add check for unit opened with ACCESS="stream". Flush and seek if
current stream position does not match. Check ENDFILE on read.

From-SVN: r142515
gcc/fortran/ChangeLog
gcc/fortran/io.c
libgfortran/ChangeLog
libgfortran/io/transfer.c