1! { dg-do compile }
2! { dg-options "-fdump-tree-original" }
3!
4! PR 58058: [4.7/4.8/4.9 Regression] Memory leak with transfer function
5!
6! Contributed by Thomas Jourdan <thomas.jourdan@orange.fr>
7
8  implicit none
9
10  integer, dimension(3) :: t1
11  character(len=64) :: str
12
13  t1 = (/1,2,3/)
14
15  str = transfer(t1,str)
16
17end
18
19! { dg-final { scan-tree-dump-times "__builtin_free" 1 "original" } }
20