URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [select_type_13.f03] - Blame information for rev 715

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
 
! PR fortran/45384
! Double free happened, check that it works now.
 
! Contributed by Salvatore Filippone  
 
program bug20
 
  type :: d_base_sparse_mat
    integer :: v(10) = 0.
  end type d_base_sparse_mat
 
  class(d_base_sparse_mat),allocatable :: a
 
  allocate (d_base_sparse_mat :: a)
 
  select type(aa => a)
  type is (d_base_sparse_mat)
    write(0,*) 'NV = ',size(aa%v)
    if (size(aa%v) /= 10) call abort ()
  class default
    write(0,*) 'Not implemented yet '
  end select
 
end program bug20

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2
3			`! PR fortran/45384`
4			`! Double free happened, check that it works now.`
5
6			`! Contributed by Salvatore Filippone`
7
8			`program bug20`
9
10			`type :: d_base_sparse_mat`
11			`integer :: v(10) = 0.`
12			`end type d_base_sparse_mat`
13
14			`class(d_base_sparse_mat),allocatable :: a`
15
16			`allocate (d_base_sparse_mat :: a)`
17
18			`select type(aa => a)`
19			`type is (d_base_sparse_mat)`
20			`write(0,*) 'NV = ',size(aa%v)`
21			`if (size(aa%v) /= 10) call abort ()`
22			`class default`
23			`write(0,*) 'Not implemented yet '`
24			`end select`
25
26			`end program bug20`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [select_type_13.f03] - Blame information for rev 715