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

[jvdelisle at gcc dot gnu.org]

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