Index: tol_tests/tol/Bugzilla/bug_000687/test.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_000687/test.tol	(revision be4a94bf43c707f7ddec3a4c9f5d5aa2dedaf9d5)
+++ tol_tests/tol/Bugzilla/bug_000687/test.tol	(revision be4a94bf43c707f7ddec3a4c9f5d5aa2dedaf9d5)
@@ -0,0 +1,54 @@
+/* -*- mode: C++ -*- */
+//////////////////////////////////////////////////////////////////////////////
+// FILE   : test.tol
+// PURPOSE: test for a resolved bug
+//////////////////////////////////////////////////////////////////////////////
+
+//Sets the bugzilla identifier number, your e-mail and the bugŽs summary
+  Real bugNum_ =  687;
+  Text email_ = "vdebuen@tol-project.org"; 
+  Text summary_ = 
+  "Problema con Structs miembro y globales con el mismo nombre.";
+  Text link_ = GetTolBugzillaLink(bugNum_);
+
+//Write here the initial test TOL code if needed
+  Real numErr0 = Copy(NError);
+
+  NameBlock nb = [[
+    Text ay = "3";
+    Struct ej {
+      Real a,
+      Text b,
+      Real c
+    }
+  ]];
+
+  Struct ej {
+    Real a,
+    Text b,
+    Real c
+  };
+    
+  // sentencia que devuelve error
+  Set ej(1,"E",2);
+  // sentencia que no devuelve error
+//  Set nb::ej(1,"E",3);
+
+
+  
+  Real numErr1 = Copy(NError);
+
+  Set partialResults_ = [[numErr0, numErr1]];
+
+//This is a messure of the success of the test 
+  Real quality_ = And(numErr1 == numErr0);
+
+//Return the results 
+  Set resultStr_ = strTestStatus(summary_, link_, quality_,
+                    "Partial results = "<<partialResults_,
+                    "NO DBServerType", "NO DBServerHost", "NO DBAlias",
+                    email_);
+  WriteLn(""<<resultStr_);
+  resultStr_;
+
+/* */