mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 10:20:21 +02: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