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