| ! { 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 |