mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 09:02:22 +01:00 
			
		
		
		
	tests: add hint directives test
git-svn-id: trunk@15760 -
This commit is contained in:
		
							parent
							
								
									bbdd8e52f1
								
							
						
					
					
						commit
						38da67e08b
					
				
							
								
								
									
										1
									
								
								.gitattributes
									
									
									
									
										vendored
									
									
								
							
							
						
						
									
										1
									
								
								.gitattributes
									
									
									
									
										vendored
									
									
								
							@ -9201,6 +9201,7 @@ tests/test/tgoto.pp svneol=native#text/plain
 | 
			
		||||
tests/test/theap.pp svneol=native#text/plain
 | 
			
		||||
tests/test/theapthread.pp svneol=native#text/plain
 | 
			
		||||
tests/test/thintdir.pp svneol=native#text/plain
 | 
			
		||||
tests/test/thintdir1.pp svneol=native#text/pascal
 | 
			
		||||
tests/test/timplements1.pp svneol=native#text/plain
 | 
			
		||||
tests/test/timplements2.pp svneol=native#text/plain
 | 
			
		||||
tests/test/timplements3.pp svneol=native#text/plain
 | 
			
		||||
 | 
			
		||||
							
								
								
									
										16
									
								
								tests/test/thintdir1.pp
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										16
									
								
								tests/test/thintdir1.pp
									
									
									
									
									
										Normal file
									
								
							@ -0,0 +1,16 @@
 | 
			
		||||
program thintdir1;
 | 
			
		||||
 | 
			
		||||
// test the possibility to use the hint modifiers as regular identifiers
 | 
			
		||||
 | 
			
		||||
{$mode delphi}
 | 
			
		||||
 | 
			
		||||
type
 | 
			
		||||
  deprecated = integer;
 | 
			
		||||
const
 | 
			
		||||
  unimplemented = 1;
 | 
			
		||||
  platform = 2;
 | 
			
		||||
var
 | 
			
		||||
  experimental: deprecated = unimplemented;
 | 
			
		||||
 | 
			
		||||
begin
 | 
			
		||||
end.                      
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user