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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR 48699: [OOP] MOVE_ALLOC inside SELECT TYPE
!
! Contributed by Salvatore Filippone 
!
! Updated for PR fortran/48887
 
program testmv2
 
  type bar
    integer, allocatable  :: ia(:), ja(:)
  end type bar
 
  class(bar), allocatable :: sm,sm2
 
  allocate(sm2)
 
  select type(sm2)
  type is (bar)
    call move_alloc(sm2,sm) ! { dg-error "must be ALLOCATABLE" }
  end select
 
end program testmv2

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 48699: [OOP] MOVE_ALLOC inside SELECT TYPE`
4			`!`
5			`! Contributed by Salvatore Filippone`
6			`!`
7			`! Updated for PR fortran/48887`
8
9			`program testmv2`
10
11			`type bar`
12			`integer, allocatable :: ia(:), ja(:)`
13			`end type bar`
14
15			`class(bar), allocatable :: sm,sm2`
16
17			`allocate(sm2)`
18
19			`select type(sm2)`
20			`type is (bar)`
21			`call move_alloc(sm2,sm) ! { dg-error "must be ALLOCATABLE" }`
22			`end select`
23
24			`end program testmv2`

Browse

Tools

Subversion Repositories openrisc

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