[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