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] - Rev 705
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
!
! PR 48699: [OOP] MOVE_ALLOC inside SELECT TYPE
!
! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
!
! 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
Go to most recent revision | Compare with Previous | Blame | View Log