mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-22 12:29:23 +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
|
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
|
# make all test
|
||||||
# and printout errors
|
# and printout errors
|
||||||
|
|
||||||
@ -99,4 +101,6 @@ alltf : $(patsubst %.pp,%.ref,$(wildcard tf*.pp))
|
|||||||
allto : $(patsubst %.pp,%.res,$(wildcard to*.pp))
|
allto : $(patsubst %.pp,%.res,$(wildcard to*.pp))
|
||||||
|
|
||||||
clean :
|
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