fortran: Tiny sort_actual internal refactoring

Preliminary refactoring to make further changes more obvious.
No functional change.

gcc/fortran/ChangeLog:
	* intrinsic.c (sort_actual): initialise variable and use it earlier.