Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/der_ptr_component_2.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 !
kono
parents:
diff changeset
3 ! Freeing the width_data lead to double free. This testcase tests that
kono
parents:
diff changeset
4 ! pr79230 is fixed now.
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 program main_ut
kono
parents:
diff changeset
7 implicit none
kono
parents:
diff changeset
8
kono
parents:
diff changeset
9 type :: data_t
kono
parents:
diff changeset
10 character, allocatable :: c1
kono
parents:
diff changeset
11 end type
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 type :: t1_t
kono
parents:
diff changeset
14 character, allocatable :: c2
kono
parents:
diff changeset
15 class(data_t), pointer :: width_data
kono
parents:
diff changeset
16 end type
kono
parents:
diff changeset
17
kono
parents:
diff changeset
18 call evaluator
kono
parents:
diff changeset
19
kono
parents:
diff changeset
20 contains
kono
parents:
diff changeset
21
kono
parents:
diff changeset
22 subroutine evaluator
kono
parents:
diff changeset
23 type(data_t), target :: par_real
kono
parents:
diff changeset
24 type(t1_t) :: field
kono
parents:
diff changeset
25 field%width_data => par_real
kono
parents:
diff changeset
26 end subroutine
kono
parents:
diff changeset
27
kono
parents:
diff changeset
28 end
kono
parents:
diff changeset
29
kono
parents:
diff changeset
30