[Patch, fortran] PR15809 (PR19276) - ICE and segfault with au tomatic character, dummy pointer arrays

[THOMAS Paul Richard 169137]

Hi Toon,

Does this do it for you?

THOMASP@PC-THOMAS-P /cygdrive/d/gfortran
$ cat toons.f90 toons.c
       character*8 a
       a="r1234567"
       call s(a)
       end
       subroutine s(a)
       character*(*) a
       call c(a)
       end
#include <stdio.h>

void c_(char *a, int i)
{
         printf("i = %d\n");
         printf(">%*.*s<\n",i,i,a);
}

THOMASP@PC-THOMAS-P /cygdrive/d/gfortran
$ /irun/bin/gfortran toons.f90 toons.c ; ./a
i = 0
>r1234567<

Cheers

Paul