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
