[Bug fortran/54224] Warn for unused internal procedures

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=54224

--- Comment #25 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> Nonetheless, as a work-around, you could use:
>
>        unsigned int offset = loc->nextc - loc->lb->line;
>        location = linemap_position_for_loc_and_offset (line_table,
>                                                        loc->lb->location,
>                                                        offset));
>
> to create a new location_t with the correct column number and use that
> for the tree it creates.

Where should this be done?