Problem with LOC intrinsic for assumed size arrays

Mark Hesselink mhesseli@caltech.edu
Tue Jan 24 23:06:00 GMT 2006


> Index: resolve.c
> ===================================================================
> --- resolve.c   (revision 110183)
> +++ resolve.c   (working copy)
> @@ -1275,7 +1275,8 @@ resolve_function (gfc_expr * expr)
>    else if (expr->value.function.actual != NULL
>              && expr->value.function.isym != NULL
>              && expr->value.function.isym->generic_id != 
> GFC_ISYM_LBOUND
> -            && expr->value.function.isym->generic_id != 
> GFC_ISYM_PRESENT)
> +            && expr->value.function.isym->generic_id != 
> GFC_ISYM_PRESENT
> +            && expr->value.function.isym->generic_id != GFC_ISYM_LOC)
>      {

I will try this patch and hope to report back in a few hours. What is 
the fastest way to rebuild GCC without doing a full bootstrap?

Thanks,

Mark



More information about the Fortran mailing list