[Ada] Bug fix in "=" function of formal doubly linked list

Correction of a typo regarding indexes.

gcc/ada/

	* libgnat/a-cfdlli.adb ("="): Make the function properly loop
	over the right list.