1! { dg-do compile } 2! Test fix for pr24789 - would segfault on the assignment 3! because the array descriptor size was not set. 4! 5! This is the example submitted by Martin Reineke <martin@mpa-garching.mpg.de> 6 7subroutine foo(vals) 8 character(len = *), pointer :: vals(:) 9 vals = '' 10end subroutine 11 12