1! { dg-do run }
2!
3! Tests the fix for PR67564 comment #9.
4!
5! Contributed by Neil Carlson  <neil.n.carlson@gmail.com>
6!
7class(*), allocatable :: val(:)
8call get_value (val)
9select type (val)
10type is (character(*))
11  if (size (val) .ne. 2) STOP 1
12  if (len(val) .ne. 3) STOP 2
13  if (any (val .ne. ['foo','bar'])) STOP 3
14end select
15contains
16  subroutine get_value (value)
17    class(*), allocatable, intent(out) :: value(:)
18    allocate(value, source=['foo','bar'])
19  end subroutine
20end
21