blob: 3c4163ee7ac4d3a05a8f8906785c63ded6a9216b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
! { dg-do run }
!
! Test fix for PR60795 comments #1 and #4
!
! Contributed by Kergonath <kergonath@me.com>
!
module m
contains
subroutine allocate_array(s_array)
character(:), dimension(:), allocatable, intent(out) :: s_array
allocate(character(2) :: s_array(2))
s_array = ["ab","cd"]
end subroutine
end module
program stringtest
use m
character(:), dimension(:), allocatable :: s4
character(:), dimension(:), allocatable :: s
! Comment #1
allocate(character(1) :: s(10))
if (size (s) .ne. 10) call abort
if (len (s) .ne. 1) call abort
! Comment #4
call allocate_array(s4)
if (size (s4) .ne. 2) call abort
if (len (s4) .ne. 2) call abort
if (any (s4 .ne. ["ab", "cd"])) call abort
end program
|