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

[Toon Moene]

THOMAS Paul Richard 169137 wrote:

> void c_(char *a, int i)
> {
>          printf("i = %d\n");
                             ^ i
>          printf(">%*.*s<\n",i,i,a);
> }
> 
> THOMASP@PC-THOMAS-P /cygdrive/d/gfortran
> $ /irun/bin/gfortran toons.f90 toons.c ; ./a
> i = 0
> 
>>r1234567<

i = 0 is wrong (and after some hard looking, I see why), but the rest of 
the answer is correct :-)

-- 
Toon Moene, KNMI, The Netherlands
Phone: +31 30 2206443; e-mail: moene@knmi.nl