2014-07-12 Paul Thomas <pault@gcc.gnu.org>

[official-gcc.git] / gcc / testsuite / gfortran.dg / proc_ptr_comp_38.f90

! { dg-do compile }
!
! PR fortran/58803
!
! Contributed by Vittorio Zecca
!
! Was before ICEing due to a double free
!
      type t
       procedure(real), pointer, nopass  :: f1, f2
      end type
      end