https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80484
--- Comment #11 from Walt Brainerd <walt.brainerd at gmail dot com> --- Looks good. Great work. You have done more than your share today to make the Fortran world a better place. Thanks! On Sat, Apr 22, 2017 at 2:32 PM, jvdelisle at gcc dot gnu.org < gcc-bugzi...@gcc.gnu.org> wrote: > https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80484 > > --- Comment #10 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> --- > (In reply to Walt Brainerd from comment #9) > > Just FYI, Intel 2017 compiles 3DT'...', but it does not run correctly > > (response inspired by your comments about a similar possibility :-). > > > > Seems to run OK with the patch. I changed statements to: > > write (unit=*, fmt="(DT'$$$Z.##')", iostat=ios, iomsg=iom) B_type(wage), > B_type(wage) > print *, trim(iom) > write (unit=*, fmt="(2DT'$$$Z.##')", iostat=ios, iomsg=iom) > B_type(wage), > B_type(wage) > print *, trim(iom) > write (unit=*, fmt="(DT'$$$Z.##'/)", iostat=ios, iomsg=iom) > B_type(wage), > B_type(wage) > > Gives: > > $ ./a.out > 15.100 > 15.100 > OK > 15.100 15.100 > OK > 15.100 > > 15.100 > > -- > You are receiving this mail because: > You are on the CC list for the bug. > You reported the bug. >