gcc/testsuite/gfortran.dg/dtio_18.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! { dg-do compile }
!
! PR 78592: [7 Regression] ICE in gfc_find_specific_dtio_proc, at fortran/interface.c:4939
!
! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de>

program p
   type t
   end type
   type(t) :: z
   interface write(formatted)
      module procedure wf    ! { dg-error "is neither function nor subroutine" }
   end interface
   print *, z
end