2009-07-22  Thomas Quinot  <quinot@adacore.com>

	* sem_type.adb (Get_First_Interp): Fix wrong loop exit condition.

From-SVN: r149924