gcc/testsuite/gfortran.dg/auto_char_dummy_array_2.f90

   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
   7 subroutine foo(vals)
   8   character(len = *), pointer :: vals(:)
   9   vals = ''
  10 end subroutine
  11