mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 02:19:22 +01:00 
			
		
		
		
	
		
			
				
	
	
		
			13 lines
		
	
	
		
			230 B
		
	
	
	
		
			ObjectPascal
		
	
	
	
	
	
			
		
		
	
	
			13 lines
		
	
	
		
			230 B
		
	
	
	
		
			ObjectPascal
		
	
	
	
	
	
{ Source provided for Free Pascal Bug Report 1850 }
 | 
						|
{ Submitted by "Sebastian Günther" on  2002-03-06 }
 | 
						|
{ e-mail: sg@freepascal.org }
 | 
						|
type
 | 
						|
  TMyRecord = record
 | 
						|
    a, b: Integer;
 | 
						|
  end;
 | 
						|
var
 | 
						|
  r: TMyRecord;
 | 
						|
begin
 | 
						|
  with r do;
 | 
						|
end.
 |