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.

Reply via email to