https://gcc.gnu.org/bugzilla/show_bug.cgi?id=88124
--- Comment #9 from Steve Kargl <sgk at troutmask dot apl.washington.edu> --- On Wed, Nov 21, 2018 at 08:59:08AM -0800, Steve Kargl wrote: > On Wed, Nov 21, 2018 at 08:49:55AM +0000, tkoenig at gcc dot gnu.org wrote: > > > > --- Comment #6 from Thomas Koenig <tkoenig at gcc dot gnu.org> --- > > The type has SEQUENCE, so I think this should actually work... or did I miss > > something here? > > > > Remove the INCLUDE from the problem, and consider > > program foo > type aaa > integer i > end type aaa > type(aaa) a > call bar(a) > print *, a%i > end program foo > > subroutine foo(a) s/foo/bar > type aaa > character(4) i > end type aaa > type(aaa) a > a%i = 'abcd' > end subroutine foo > s/foo/bar
