comparison gcc/testsuite/gfortran.dg/dtio_22.f90 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do run }
2 !
3 ! PR 78848: [OOP] ICE on writing CLASS variable with non-typebound DTIO procedure
4 !
5 ! Contributed by Mikael Morin <morin-mikael@orange.fr>
6
7 module m
8 type :: t
9 integer :: i = 123
10 end type
11 interface write(formatted)
12 procedure wf
13 end interface
14 contains
15 subroutine wf(this, unit, b, c, iostat, iomsg)
16 class(t), intent(in) :: this
17 integer, intent(in) :: unit
18 character, intent(in) :: b
19 integer, intent(in) :: c(:)
20 integer, intent(out) :: iostat
21 character, intent(inout) :: iomsg
22 write (unit, "(i3)", IOSTAT=iostat, IOMSG=iomsg) this%i
23 end subroutine
24 end
25
26 program p
27 use m
28 character(3) :: buffer
29 class(t), allocatable :: z
30 allocate(z)
31 write(buffer,"(DT)") z
32 if (buffer /= "123") call abort()
33 end