! { dg-do run } | |
program main | |
if (bug() /= "abcdefghij") STOP 1 | |
contains | |
function bug() | |
character(len=10) :: bug | |
character(len=1), dimension(:), pointer :: p_chars | |
allocate(p_chars(10)) | |
p_chars = ['a','b','c','d','e','f','g','h','i','j'] | |
forall (i=1:len(bug)) | |
bug(i:i) = p_chars(i) | |
end forall | |
deallocate(p_chars) | |
end function bug | |
end program main |