gcc/testsuite/gfortran.dg/select_type_23.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 48699: [OOP] MOVE_ALLOC inside SELECT TYPE
   4 !
   5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
   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