3 ! Test fix for PR60795 comments #1 and #4
5 ! Contributed by Kergonath <kergonath@me.com>
9 subroutine allocate_array(s_array
)
10 character(:), dimension(:), allocatable
, intent(out
) :: s_array
12 allocate(character(2) :: s_array(2))
19 character(:), dimension(:), allocatable
:: s4
20 character(:), dimension(:), allocatable
:: s
22 allocate(character(1) :: s(10))
23 if (size (s
) .ne
. 10) call abort
24 if (len (s
) .ne
. 1) call abort
26 call allocate_array(s4
)
27 if (size (s4
) .ne
. 2) call abort
28 if (len (s4
) .ne
. 2) call abort
29 if (any (s4
.ne
. ["ab", "cd"])) call abort