Fortran: fix ALLOCATE with SOURCE of deferred character length [PR114019]

[official-gcc.git] / gcc / testsuite / gcc.dg / torture / pr85814.c

int a;
void b(char *c)
{
  c += 4;
  for (int i = 0; i < 4; i++)
    a = *c++ = 2;
}