broken statics2

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