This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
RE: [Patch, fortran] PR15809 (PR19276) - ICE and segfault with au tomatic character, dummy pointer arrays
- From: THOMAS Paul Richard 169137 <paul dot richard dot thomas at cea dot fr>
- To: "'Toon Moene'" <moene at knmi dot nl>
- Cc: gcc-patches at gcc dot gnu dot org, fortran at gcc dot gnu dot org
- Date: Wed, 30 Nov 2005 14:00:51 +0100
- Subject: RE: [Patch, fortran] PR15809 (PR19276) - ICE and segfault with au tomatic character, dummy pointer arrays
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