gcc/testsuite/gfortran.dg/dtio_18.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 78592: [7 Regression] ICE in gfc_find_specific_dtio_proc, at fortran/interface.c:4939
   4 !
   5 ! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de>
   6
   7 program p
   8    type t
   9    end type
  10    type(t) :: z
  11    interface write(formatted)
  12       module procedure wf    ! { dg-error "is neither function nor subroutine" }
  13    end interface
  14    print *, z
  15 end