! { dg-do compile }
! { dg-options "-fdump-tree-original" }
!
! Test the fix for PR64932.
!
! Reported by Daniel Shapiro  <shapero@uw.edu>
!
module coo_graphs
  implicit none
  type :: dynamic_array
    integer :: length, capacity, min_capacity
    integer, allocatable :: array(:)
  end type
  type :: coo_graph
    type(dynamic_array) :: edges(2)
    integer, private :: ne
  end type coo_graph
contains
  subroutine coo_dump_edges(g, edges)
    class(coo_graph), intent(in) :: g
    integer, intent(out) :: edges(:,:)
  end subroutine coo_dump_edges
end module coo_graphs
! { dg-final { scan-tree-dump-times "__builtin_free" 3 "original" } }