mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
25 lines
443 B
Fortran
25 lines
443 B
Fortran
! { 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
|