2 ! { dg-options "-fdump-tree-original" }
4 ! Test the fix for PR64932.
6 ! Reported by Daniel Shapiro <shapero@uw.edu>
11 integer :: length
, capacity
, min_capacity
12 integer, allocatable
:: array(:)
15 type(dynamic_array
) :: edges(2)
16 integer, private
:: ne
19 subroutine coo_dump_edges(g
, edges
)
20 class(coo_graph
), intent(in
) :: g
21 integer, intent(out
) :: edges(:,:)
22 end subroutine coo_dump_edges
24 ! { dg-final { scan-tree-dump-times "__builtin_free" 6 "original" } }