From 8c67a4370be13ff0fe91ca86f4107680037d1657 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 28 May 2022 13:45:56 +0200
Subject: [PATCH] rautils: don't interpret ".L3" as potentially meaning
 "unitx.identifier"

Fixes compilation of webtbs/tw10641.pp with a compiler compiled with
range checking
---
 compiler/rautils.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/rautils.pas b/compiler/rautils.pas
index dda141223d..8d51e3c6ac 100644
--- a/compiler/rautils.pas
+++ b/compiler/rautils.pas
@@ -1413,7 +1413,7 @@ var
 begin
   i:=pos('.',s);
   { allow unit.identifier }
-  if i>0 then
+  if i>1 then
     begin
       searchsym(Copy(s,1,i-1),srsym,srsymtable);
       if assigned(srsym) then