! { dg-do run } | |
! | |
implicit none | |
character(len=7), pointer :: u | |
character(len=7), pointer :: v | |
character(len=7), target :: a | |
character(len=7), target :: b | |
integer :: j | |
b = "1234567" | |
a = "abcdefg" | |
u => a | |
v => b | |
forall (j = 1:2) a(j:j) = b(j:j) | |
if (a /= "12cdefg") STOP 1 | |
forall (j = 2:3) a(j:j) = v(j:j) | |
if (a /= "123defg") STOP 2 | |
forall (j = 3:4) u(j:j) = b(j:j) | |
if (a /= "1234efg") STOP 3 | |
forall (j = 4:5) u(j:j) = v(j:j) | |
if (a /= "12345fg") STOP 4 | |
end |