https://gcc.gnu.org/bugzilla/show_bug.cgi?id=94788
--- Comment #38 from Jürgen Reuter <juergen.reuter at desy dot de> --- Created attachment 48426 --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=48426&action=edit Correct 'final' final reproducer Indeed, rt_data_t should have an additional component type(rt_data_t), pointer :: context => null subroutine rt_data_init should contain the additional line local%context => global and subroutine rt_data_activate should contain the additional line global => local%context Sorry about that.