diff options
author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-02-14 08:28:50 +0000 |
---|---|---|
committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-02-14 08:28:50 +0000 |
commit | bc51e7261200de6aa426185513de950e278ab51f (patch) | |
tree | 6a9abd645ffe346f04c5f9e2b9e35c9d59448034 /gcc/intl.c | |
parent | 89fdbef28dab9e7c56781b17cd50d6894d6f425e (diff) | |
download | gcc-bc51e7261200de6aa426185513de950e278ab51f.zip gcc-bc51e7261200de6aa426185513de950e278ab51f.tar.gz gcc-bc51e7261200de6aa426185513de950e278ab51f.tar.bz2 |
re PR fortran/32382 (missed optimization in internal read)
2010-02-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/32382
* trans-stmt.h: Add prototype for gfc_trans_code_cond. Add tree cond to
gfc_trans_do prototype.
* trans-stmt.c (gfc_trans_simple_do): Add optional argument to pass in
a loop exit condition. If exit condition is given, build the loop exit
code, checking IO results of implied do loops in READ and WRITE.
(gfc_trans_do): Likewise.
* trans.c (trans_code): New static work function, previously
gfc_trans_code. Passes exit condition to gfc_trans_do.
(gfc_trans_code): Calls trans_code with NULL_TREE condition.
(gfc_trans_code_cond): Calls trans_code with loop exit condition.
* trans-io.c (build_dt): Build an exit condition to allow checking IO
result status bits in the dtparm structure. Use this condition in call
to gfc_trans_code_cond.
From-SVN: r156755
Diffstat (limited to 'gcc/intl.c')
0 files changed, 0 insertions, 0 deletions