diff options
Diffstat (limited to 'gcc-4.9/gcc/testsuite/gfortran.dg/class_array_15.f03')
-rw-r--r-- | gcc-4.9/gcc/testsuite/gfortran.dg/class_array_15.f03 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/class_array_15.f03 b/gcc-4.9/gcc/testsuite/gfortran.dg/class_array_15.f03 index 7d1d4d718..d3a123259 100644 --- a/gcc-4.9/gcc/testsuite/gfortran.dg/class_array_15.f03 +++ b/gcc-4.9/gcc/testsuite/gfortran.dg/class_array_15.f03 @@ -1,4 +1,5 @@ ! { dg-do run } +! { dg-options "-fdump-tree-original" } ! ! Tests the fixes for three bugs with the same underlying cause. All are regressions ! that come about because class array elements end up with a different tree type @@ -114,3 +115,5 @@ subroutine pr54992 ! This test remains as the original. bh => bhGet(b,instance=2) if (loc (b) .ne. loc(bh%hostNode)) call abort end +! { dg-final { scan-tree-dump-times "builtin_free" 12 "original" } } +! { dg-final { cleanup-tree-dump "original" } } |