[PATCH] Fix PR tree-opt/25251, forced label being removed

[Andrew Pinski <pinskia at physics dot uc dot edu>]

A forced label is being removed when compiling with some Fortran code.
The Fortran front-end produces labels which are forced (the address is
taken) but they are artificial.  In cleanup_dead_labels, we check
to see if the label is not artificial or a non-local label but we
forget to check if the label is forced.  We remove the label as
cleanup_dead_labels forgets to check if the label is forced meaning
that we need the label still.

OK for the mainline and the 4.1 branch?  Bootstrapped and tested on
x86_64-linux-gnu with no regressions.

Thanks,
Andrew Pinski


ChangeLog:

	* tree-cfg.c (cleanup_dead_labels): Also don't remove
	forced labels.

	* gfortran.dg/assign_7.f: New test.

Attachment: fix.diff.txt
Description: Text document