blob: 888fd56ec251ac94b5187ae8d691e98cd2f0cc33 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do run }
!
! Checks the fix for PR67977 in which automatic reallocation on assignment
! was performed when the lhs had a substring reference.
!
! Contributed by Anton Shterenlikht <mexas@bristol.ac.uk>
!
character(:), allocatable :: z
integer :: length
z = "cockatoo"
length = len (z)
z(:) = ''
if (len(z) .ne. length) STOP 1
if (trim (z) .ne. '') STOP 2
z(:3) = "foo"
if (len(z) .ne. length) STOP 3
if (trim (z) .ne. "foo") STOP 4
z(4:) = "__bar"
if (len(z) .ne. length) STOP 5
if (trim (z) .ne. "foo__bar") STOP 6
deallocate (z)
end
|
