XREF causes compiler crash

I have at least one routine in my build that causes a crash when I enable XREF.

Using 8.20.0, the compile options are:

Compiler options in effect:
 BINARY;CFPP;CHECK;CHECKMATE;ERROR_NUMBERS;FPP;IMPLICIT_NONE;LIST;
NO_BANNER;SAVE;UNDEF;UNLIMITED_ERRORS;VS7;WIDE_SOURCE;XREF;

I've trimmed down the code that causes the error.

	SUBROUTINE GUSER(CSTMER,SERLNO,CNAME,BUILD_DATE,BUILD_TIME,user,APPFOLDER,sw_version,expiration_date,download_link)
	use mswin
!	SPECIAL PARAMETER CURRENTUSER
	character*(*) cstmer
	CHARACTER*48 CURRENT_CUSTOMER,current_name
	CHARACTER*(*) SERLNO
	CHARACTER*20 CURRENT_SERLNO
	character*(*) cname ! name of the user who installed the SW
	character*(*) expiration_date
	character*(*) download_link
#ifndef RESTRICTED
    character*48::reg_name='Unregistered User'
    character*48::reg_company='Unregistered Company'
    character*20::reg_serial='UnregisteredSerial##'
    character*20::reg_reg   ='UnregisteredRegNumbe'
    character*8,parameter::CMASTER_TYPE='C-Master'
!$$$$$$ #else
!$$$$$$     character*48::reg_name='Evaluation User'
!$$$$$$     character*48::reg_company='Company Evaluating'
!$$$$$$     character*20::reg_serial='EvaluationSerial####'
!$$$$$$     character*20::reg_reg=   'EvaluationRegNumber#'
!$$$$$$     character*19,parameter::CMASTER_TYPE='C-Master Evaluation'
!$$$$$$     character*10:: hide_1='1157605789'
#endif
!	character*256::dummy=' '
	character*(*) user,appfolder,sw_version
	character*256 username
	character*260 default_folder
	character*2 sep
	LOGICAL,external:: registry_hack
	integer,external:: log_mydata
	INTEGER:: i,k
	CHARACTER*(*) BUILD_DATE,BUILD_TIME
	common/guser_common/CURRENT_CUSTOMER,CURRENT_SERLNO
	RETURN
	END 

With or without the commented block of lines, the XREF causes a crash.

Thank you. I have made a note that this needs fixing.

This issue has now been fixed for the next release of FTN95 (after 8.20).

Thanks, Paul!