mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 07:43:04 +01:00 
			
		
		
		
	
		
			
				
	
	
		
			14 lines
		
	
	
		
			194 B
		
	
	
	
		
			ObjectPascal
		
	
	
	
	
	
			
		
		
	
	
			14 lines
		
	
	
		
			194 B
		
	
	
	
		
			ObjectPascal
		
	
	
	
	
	
{ %FAIL }
 | 
						|
{ Old file: tbf0284.pp }
 | 
						|
{ wrong file position with dup id in other unit        OK 0.99.13 (PFV) }
 | 
						|
 | 
						|
uses tbs0284b;
 | 
						|
{$HINTS ON}
 | 
						|
type
 | 
						|
  o2=object(o1)
 | 
						|
    p : longint;
 | 
						|
  end;
 | 
						|
 | 
						|
begin
 | 
						|
end.
 |