1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { dg-do run }
! PR84389 rejected valid use of ':' in format
module m
type :: t
integer :: i
contains
procedure, pass(this) :: write_t
generic, public :: write(formatted) => write_t
end type
contains
subroutine write_t(this, lun, iotype, vlist, istat, imsg)
! argument definitions
class(t), intent(in) :: this
integer, intent(in) :: lun
character(len=*), intent(in) :: iotype
integer, intent(in) :: vlist(:)
integer, intent(out) :: istat
character(len=*), intent(inout) :: imsg
write(lun, fmt=*, iostat=istat, iomsg=imsg) "Hello World!"
end subroutine write_t
end module
program p
use m, only : t
character(50) :: str
type(t) :: foo(2)
write(str, "(*(dt:,','))") foo
if (str.ne." Hello World!, Hello World!") stop 1
end program
|
