From 922c46cdef0e226e7719814cd16a285c9af95712 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 21 Oct 1998 12:09:52 +0000
Subject: [PATCH]   + add log for makefile   + added test for i:=longint;

---
 tests/README      | 5 ++++-
 tests/makefile    | 8 ++++++--
 tests/tf000002.pp | 8 ++++++++
 3 files changed, 18 insertions(+), 3 deletions(-)
 create mode 100644 tests/tf000002.pp

diff --git a/tests/README b/tests/README
index 68054dfaf9..b26aec3a87 100644
--- a/tests/README
+++ b/tests/README
@@ -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
diff --git a/tests/makefile b/tests/makefile
index 38d99e84ec..ca0ab1017d 100644
--- a/tests/makefile
+++ b/tests/makefile
@@ -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:
diff --git a/tests/tf000002.pp b/tests/tf000002.pp
new file mode 100644
index 0000000000..bc881bbccd
--- /dev/null
+++ b/tests/tf000002.pp
@@ -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.
\ No newline at end of file