gcc/testsuite/gfortran.dg/interface_procedure_1.f90

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-std=f95" }
   3 !
   4 ! PR fortran/48776
   5 ! The following used to generate a segmentation fault in the front-end,
   6 ! because a pointer to the get1 symbol was remaining in the get interface
   7 ! after the procedure statement was rejected and the symbol freed.
   8
   9   interface get
  10     procedure get1  ! { dg-error "Fortran 2003: PROCEDURE statement" }
  11   end interface
  12
  13   integer :: h
  14   call set1 (get (h))  ! { dg-error "no specific function for the generic 'get'" }
  15 contains
  16   subroutine set1 (a)
  17     integer, intent(in) :: a
  18   end subroutine
  19
  20   integer function get1 (s)
  21     integer :: s
  22   end function
  23 end