For whatever it's worth, I agree about the leading apostrophe, it is in error.
By the way, latest IFORT 2021.5 as part of oneAPI works as expected with the following simple case:
module m
type :: t
end type
generic :: write(formatted) => write_t
contains
subroutine write_t(dtv, lun, iotype, vlist, istat, imsg)
! Argument list
class(t), intent(in) :: dtv
integer, intent(in) :: lun
character (len=*), intent(in) :: iotype
integer, intent(in) :: vlist(:)
integer, intent(out) :: istat
character (len=*), intent(inout) :: imsg
! defined output
write(unit=lun, fmt=*, iostat=istat) "iotype = ", iotype, "; size(vlist) = ", size(vlist)
if (size(vlist) > 0) write(unit=lun, fmt=*, iostat=istat) "vlist = ", vlist
end subroutine write_t
end module
use m
type(t) :: foo
print "(dt 'foo' (1,2))", foo
end
C:\temp>ifort /standard-semantics p.f90
Intel(R) Fortran Intel(R) 64 Compiler Classic for applications running on Intel(R) 64, Version 2021.5.0 Build 20211109_000000
Copyright (C) 1985-2021 Intel Corporation. All rights reserved.
Microsoft (R) Incremental Linker Version 14.30.30706.0
Copyright (C) Microsoft Corporation. All rights reserved.
-out:p.exe
-subsystem:console
p.obj
C:\temp>p.exe
iotype = DTfoo; size(vlist) = 2 vlist = 1 2
And I failed to find any prohibition in the standard with the embedded blanks in the DT edit descriptor, I think the above snippet conforms.
