2 ! PR80484 Three syntax errors involving derived-type I/O
7 interface write (formatted)
13 (amount, unit, b_edit_descriptor, v_list, iostat, iomsg)
15 class (B_type), intent(in) :: amount
16 integer, intent(in) :: unit
17 character (len=*), intent(in) :: b_edit_descriptor
18 integer, dimension(:), intent(in) :: v_list
19 integer, intent(out) :: iostat
20 character (len=*), intent(inout) :: iomsg
21 write (unit=unit, fmt="(f9.3)", iostat=iostat) amount%amount
23 end subroutine Write_b
25 end module dt_write_mod
28 use dt_write_mod, only: B_type , write(formatted)
33 character(len=99) :: iom = "OK"
35 write (unit=*, fmt="(DT'$$$Z.##')", iostat=ios, iomsg=iom) &
36 B_type(wage), B_type(wage)
38 write (unit=*, fmt="(2DT'$$$Z.##')", iostat=ios, iomsg=iom) &
39 B_type(wage), B_type(wage)
41 write (unit=*, fmt="(3DT'$$$Z.##')", iostat=ios, iomsg=iom) &
42 B_type(wage), B_type(wage)
44 write (unit=*, fmt="(DT'$$$Z.##'/)", iostat=ios, iomsg=iom) &
45 B_type(wage), B_type(wage)