3 ! Tests the fix for PR67564 comment #9.
5 ! Contributed by Neil Carlson <neil.n.carlson@gmail.com>
7 class(*), allocatable :: val(:)
10 type 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
16 subroutine get_value (value)
17 class(*), allocatable, intent(out) :: value(:)
18 allocate(value, source=['foo','bar'])