| ! { dg-do compile } | |
| ! { dg-options "-fdump-tree-original" } | |
| ! | |
| ! PR 58058: [4.7/4.8/4.9 Regression] Memory leak with transfer function | |
| ! | |
| ! Contributed by Thomas Jourdan <thomas.jourdan@orange.fr> | |
| implicit none | |
| integer, dimension(3) :: t1 | |
| character(len=64) :: str | |
| t1 = (/1,2,3/) | |
| str = transfer(t1,str) | |
| end | |
| ! { dg-final { scan-tree-dump-times "__builtin_free" 1 "original" } } |