interface.c (gfc_compare_types): Check for unlimited polymorphism flag in the correct...

interface.c (gfc_compare_types): Check for unlimited polymorphism flag in the correct position indepent of the...

gcc/fortran/ChangeLog:

2015-04-28  Andre Vehreschild  <vehre@gmx.de>

	* interface.c (gfc_compare_types): Check for unlimited
	polymorphism flag in the correct position indepent of the _data
	component being present or not.  This prevents a segfault, when
	the _data component is not present.
	* symbol.c (gfc_type_compatible): Same.

gcc/testsuite/ChangeLog:

2015-04-28  Andre Vehreschild  <vehre@gmx.de>

	* gfortran.dg/implicit_class_1.f90: Adding flag to check, if
	segfault is fixed.

From-SVN: r222539