From 2dcda381d0ceee05481700f0a42b1df5ce196262 Mon Sep 17 00:00:00 2001 From: Andi Jahja Date: Thu, 8 Jul 1999 23:54:15 +0000 Subject: [PATCH] broken statics2 --- harbour/tests/broken/statics2.prg | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 harbour/tests/broken/statics2.prg diff --git a/harbour/tests/broken/statics2.prg b/harbour/tests/broken/statics2.prg new file mode 100644 index 0000000000..0bddd895d2 --- /dev/null +++ b/harbour/tests/broken/statics2.prg @@ -0,0 +1,20 @@ +// Statics overlapped! +// +// Compile statics1.prg, statics2.prg and link both files + +static uA, uB + +function Test() + + QOut( "INSIDE STATICS2.PRG" ) + QOut( " static uA, uB" ) + QOut( "" ) + QOut( " ValType( uA ), ValType( uB ) =>", ValType( uA ), ",", ValType( uB ) ) + QOut( " uA, uB =>", uA, ",", uB ) + uA := "a" + uB := "b" + QOut( ' uA := "a"' ) + QOut( ' uB := "b"' ) + QOut( "" ) + +return nil