mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 02:19:22 +01:00 
			
		
		
		
	
		
			
				
	
	
		
			15 lines
		
	
	
		
			219 B
		
	
	
	
		
			ObjectPascal
		
	
	
	
	
	
			
		
		
	
	
			15 lines
		
	
	
		
			219 B
		
	
	
	
		
			ObjectPascal
		
	
	
	
	
	
{%fail}
 | 
						|
{%norun}
 | 
						|
program tdotunits1;
 | 
						|
 | 
						|
{$mode delphi}
 | 
						|
 | 
						|
uses
 | 
						|
  udots.dot.next, udots;
 | 
						|
 | 
						|
begin
 | 
						|
  // this identifier can't be resolved because namespace udots.dot hides the udots unit visibility
 | 
						|
  udots.dot.test := 1;
 | 
						|
end.
 | 
						|
 |