blob: 4eb08692ef86885e3786d80bb9dcf9eb5aabbea6 [file] [log] [blame]
! { dg-do run }
!
! Freeing the width_data lead to double free. This testcase tests that
! pr79230 is fixed now.
program main_ut
implicit none
type :: data_t
character, allocatable :: c1
end type
type :: t1_t
character, allocatable :: c2
class(data_t), pointer :: width_data
end type
call evaluator
contains
subroutine evaluator
type(data_t), target :: par_real
type(t1_t) :: field
field%width_data => par_real
end subroutine
end