Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/48887

!

! "If the selector is allocatable, it shall be allocated; the

!  associate name is associated with the data object and does

!  not have the ALLOCATABLE attribute."

!

module m

  type t

  end type t

contains

  subroutine one(a)

    class(t), allocatable :: a

    class(t), allocatable :: b

    allocate (b)

    select type (b)

      type is(t)

        call move_alloc (b, a) ! { dg-error "must be ALLOCATABLE" }

    end select

  end subroutine one

  subroutine two (a)

    class(t), allocatable :: a

    type(t), allocatable :: b

    allocate (b)

    associate (c => b)

      call move_alloc (b, c) ! { dg-error "must be ALLOCATABLE" }

    end associate

  end subroutine two

end module m

type t

end type t

class(t), allocatable :: x

select type(x)

  type is(t)

    print *, allocated (x) ! { dg-error "must be ALLOCATABLE" }

end select

select type(y=>x)

  type is(t)

    print *, allocated (y)  ! { dg-error "must be ALLOCATABLE" }

end select

associate (y=>x)

  print *, allocated (y)  ! { dg-error "must be ALLOCATABLE" }

end associate

end