mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-10-31 01:11:29 +01:00 
			
		
		
		
	+ add log for makefile
+ added test for i:=longint;
This commit is contained in:
		
							parent
							
								
									852aeb1a13
								
							
						
					
					
						commit
						922c46cdef
					
				| @ -29,4 +29,7 @@ ts10100.pp        tests for delphi object model | ||||
| - | ||||
| ts101xx.pp | ||||
| 
 | ||||
| to000000          shows when uncertain optimizations can cause wrong code | ||||
| tf000001.pp       stupid example that creates a GPF sometimes | ||||
| tf000002.pp       tests that use of a type as a member of an expression is not possible | ||||
| 
 | ||||
| to000000.pp       shows when uncertain optimizations can cause wrong code | ||||
|  | ||||
| @ -1,4 +1,6 @@ | ||||
| 
 | ||||
| #
 | ||||
| # $Id:
 | ||||
| #
 | ||||
| # make all test
 | ||||
| # and printout errors
 | ||||
| 
 | ||||
| @ -99,4 +101,6 @@ alltf : $(patsubst %.pp,%.ref,$(wildcard tf*.pp)) | ||||
| allto : $(patsubst %.pp,%.res,$(wildcard to*.pp)) | ||||
| 
 | ||||
| clean : | ||||
| 	-rm *.re* log faillist | ||||
| 	-rm *.re* *.o *.ppu *.exe log faillist | ||||
| 
 | ||||
| # $Log:
 | ||||
|  | ||||
							
								
								
									
										8
									
								
								tests/tf000002.pp
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										8
									
								
								tests/tf000002.pp
									
									
									
									
									
										Normal file
									
								
							| @ -0,0 +1,8 @@ | ||||
| 
 | ||||
| var | ||||
|   i,j : longint; | ||||
| begin | ||||
|   i:=longint; | ||||
|   j:=i*word+j*shortint; | ||||
|   j:= 15 +5*i +(i*i)+sqr(word); | ||||
| end. | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user
	 pierre
						pierre