3 ! PR 78592: [7 Regression] ICE in gfc_find_specific_dtio_proc, at fortran/interface.c:4939
5 ! Contributed by Mikael Morin <morin-mikael@orange.fr>
11 type, extends(t) :: t2
13 class(t2), allocatable :: z2
14 interface write(formatted)
16 module procedure wf ! { dg-error "is neither function nor subroutine" }
22 subroutine wf2(this, a, b, c, d, e)
23 class(t2), intent(in) :: this
24 integer, intent(in) :: a
25 character, intent(in) :: b
26 integer, intent(in) :: c(:)
27 integer, intent(out) :: d
28 character, intent(inout) :: e