| ! { 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 |