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