blob: 2a71ca052cddebde5c88c6353dd509df37ec3095 (
plain)
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
|