Sign in
gnu
/
gcc
/
6b8c51083f174263d57154d530e1f903e0437941
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
proc_ptr_comp_38.f90
blob: 2a71ca052cddebde5c88c6353dd509df37ec3095 [
file
] [
log
] [
blame
]
!
{
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