[Bug fortran/80484] Three syntax errors involving derived-type I/O

["walt.brainerd at gmail dot com" <gcc-bugzilla at gcc dot gnu dot org>]

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-bugzilla@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.
>