From 871a779389d77ce14962b101a57665c6e27cd527 Mon Sep 17 00:00:00 2001 From: Andi Jahja Date: Thu, 8 Jul 1999 23:54:31 +0000 Subject: [PATCH] broken statics1 --- harbour/tests/broken/statics1.prg | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 harbour/tests/broken/statics1.prg diff --git a/harbour/tests/broken/statics1.prg b/harbour/tests/broken/statics1.prg new file mode 100644 index 0000000000..6828e0bc08 --- /dev/null +++ b/harbour/tests/broken/statics1.prg @@ -0,0 +1,27 @@ +// Statics overlapped! +// +// Compile statics1.prg, statics2.prg and link both files + +static uOne, uTwo + +function Main() + + QOut( "Statics overlapped!" ) + QOut( "===================" ) + QOut( "" ) + QOut( "INSIDE STATICS1.PRG" ) + QOut( " static uOne, uTwo" ) + QOut( "" ) + QOut( " uOne, uTwo =>", uOne, ",", uTwo ) + uOne := 1 + uTwo := 2 + QOut( " uOne := 1" ) + QOut( " uOne := 2" ) + QOut( " uOne, uTwo =>", uOne, ",", uTwo ) + QOut( "" ) + Test() + QOut( "INSIDE STATICS1.PRG" ) + QOut( " uOne, uTwo =>", uOne, ",", uTwo ) + QOut( "" ) + +return nil