20000522-09:40 GMT-8 Ron Pinkas <Ron@Profit-Master.com>

* include/hbextern.ch
     + Added HB_STRUCTURE to list of Externals

harbour/ChangeLog

@@ -1,3 +1,8 @@
+20000522-09:40 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
+
+   * include/hbextern.ch
+     + Added HB_STRUCTURE to list of Externals
+
 20000522-09:20 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
 
    * source/compiler/harbour.c

harbour/include/hbextern.ch

@@ -673,6 +673,7 @@ EXTERNAL TBROWSENEW
 //symbols from file: rtl\tclass.prg
 //
 EXTERNAL TCLASS
+EXTERNAL HB_STRUCTURE
 //
 //symbols from file: rtl\text.prg
 //

harbour/tests/testinit.prg

@@ -0,0 +1,11 @@
+INIT PROCEDURE Init()
+
+  ? "In Init"
+
+RETURN
+
+PROCEDURE MAIN()
+
+   ? "Should NEVER see this message!!!"
+
+RETURN

harbour/tests/teststru.prg

@@ -4,11 +4,13 @@ PROCEDURE MAIN()
 
   LOCAL sTest AS New MyStruct
 
-  sTest:Var1 := 8             // Warning Here as Expected.
-  sTest:NoSuchVar := "Error"  // Warning here as expected.
-
   sTest:Var1 := 'Working'     // No problem here.
 
-  ? sTest:Var1                // Np Problem here.
+  ? sTest:Var1                // No Problem here.
+
+  sTest:Var1 := 8             // Warning Here as Expected.
+
+  /* Run TIME ERROR Here */
+  sTest:NoSuchVar := "Error"  // Warning here as expected.
 
 RETURN