gcc/testsuite/gfortran.dg/proc_ptr_comp_38.f90


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

! { 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