7 PROCEDURE :: write_formatted
8 GENERIC :: WRITE(FORMATTED) => write_formatted
11 SUBROUTINE write_formatted(dtv, unit, iotype, v_list, iostat, iomsg)
12 CLASS(t), INTENT(IN) :: dtv
13 INTEGER, INTENT(IN) :: unit
14 CHARACTER(*), INTENT(IN) :: iotype
15 INTEGER, INTENT(IN) :: v_list(:)
16 INTEGER, INTENT(OUT) :: iostat
17 CHARACTER(*), INTENT(INOUT) :: iomsg
19 WRITE (unit, "(A)", IOSTAT=iostat, IOMSG=iomsg) iotype
20 END SUBROUTINE write_formatted
29 WRITE (str, "(DT'a''b')") x
30 if (str.ne."DTa'b") call abort