[Bug libfortran/38199] [4.7/4.8/4.9 Regression] missed optimization: I/O performance

[jvdelisle at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38199

--- Comment #28 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Patch submitted for the case in Comment #22.

$ gfc48 22.f                   gfortran version 4.8
$ time ./a.out 

real    0m26.320s
user    0m26.184s
sys    0m0.018s

$ gfc 22.f                     gfortran patched trunk
$ time ./a.out 

real    0m2.917s
user    0m2.902s
sys    0m0.001s