[Bug fortran/50392] SIGSEGV in gfc_trans_label_assign

[kargl at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50392

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #5 from kargl at gcc dot gnu.org 2011-09-14 17:10:59 UTC ---
(In reply to comment #4)
> (In reply to comment #3)
> > Patch:
> 
> I have accidentally submitted the patch before testing finished. It does not
> work. The problem is that it does create the required declaration - but it does
> not get used as one later calls  gfc_get_fake_result_decl, which does not
> propagate this information on.
> 
> That's fixed by applying additionally the following patch, which feels slightly
> hackish.

Just a FYI.  The following code works with the current gfortran.

      function kf() result(j)
      assign 3 to j
3     continue
      j = 3
      end