blob: f0c9665252f46a455fe8877b0dae51f9af381e02 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { 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" 6 "original" } }
|
