mirror of
				https://github.com/c64scene-ar/llvm-6502.git
				synced 2025-11-04 05:17:07 +00:00 
			
		
		
		
	Test that TREE_CONSTANT is being set correctly.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@36645 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
		
							
								
								
									
										8
									
								
								test/FrontendAda/unc_constructor.ads
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										8
									
								
								test/FrontendAda/unc_constructor.ads
									
									
									
									
									
										Normal file
									
								
							@@ -0,0 +1,8 @@
 | 
			
		||||
package Unc_Constructor is
 | 
			
		||||
   type C is null record;
 | 
			
		||||
   type A is array (Positive range <>) of C;
 | 
			
		||||
   A0 : constant A;
 | 
			
		||||
   procedure P (X : A);
 | 
			
		||||
private
 | 
			
		||||
   A0 : aliased constant A := (1 .. 0 => (null record));
 | 
			
		||||
end;
 | 
			
		||||
		Reference in New Issue
	
	Block a user