[PATCH] fortran/36153 -- Fix complicationn due to KIND in SIZE
Tobias Burnus
tobias.burnus@physik.fu-berlin.de
Sat Aug 30 17:17:00 GMT 2008
> The attached patch fixes the problem in PR fortran/36153.
>
> + if (strncmp(arg->next->name, "kind", 4) == 0)
> + break;
> +
The patch cases an ICE (segfault) for several testcases, e.g.:
libgomp.fortran/allocatable1.f90
$ gfortran libgomp.fortran/allocatable4.f90
shows in valgrind:
==23517== Invalid read of size 1
==23517== at 0x4680D7: gfc_resolve_expr (resolve.c:2311)
==23517== by 0x46C1B2: resolve_operator (resolve.c:2921)
==23517== by 0x4673AC: gfc_resolve_expr (resolve.c:4549)
==23517== by 0x46C213: resolve_operator (resolve.c:2912)
Line 2311 is:
+ if (strncmp(arg->next->name, "kind", 4) == 0)
Tobias
More information about the Fortran
mailing list