See changelog

harbour/ChangeLog

@@ -1,3 +1,7 @@
+19990525-21:30 CET Eddie Runia
+  * tests/working/spawn2.prg
+    Warning added if not compiled using /gHRB
+
 19990525-19:15 CET Eddie Runia
   * source/runner/runner.c; source/runner/run_exp.h; source/runner
     created. currently in transition.

harbour/tests/working/spawn2.prg

@@ -1,11 +1,22 @@
-//NOTEST
 //
 // Spawn2 called from Spawn
 //
-function Main()
+function Spawn2()
 
-   QOut( "Hi, I am Spawn2" )
-   QOut( "Let's call a function from Spawn()" )
-   SomeWhereElse()
-   QOut( "Back to Spawn2" )
+   local n := 0
+
+   while !Empty( ProcName( n ) )
+      n++
+   end
+   if ProcName( n - 1 ) != "HB_RUN"
+      QOut( "Please compile me with /gHRB" )
+      QOut()
+      QOut( "Then : hbrun spawn" )
+   else
+      QOut( "Hi, I am Spawn2" )
+      QOut( "Let's call a function from Spawn()" )
+      SomeWhereElse()
+      QOut( "Back to Spawn2" )
+   endif
 return nil
+