fixing issue #125

src/Expressions/SRefExpr.h

@@ -175,15 +175,8 @@ namespace Expressions {
             itsObject = OpalData::getInstance()->find(obj_name);
             if(itsObject == 0) {
                 if(att_name.empty()) {
-                    Object *variable = OpalData::getInstance()->find("REAL_VARIABLE");
-                    itsObject = variable->clone(obj_name);
-                    OpalData::getInstance()->define(itsObject);
-
-                    if(Options::verify) {
-                        std::cerr << "\nThe <variable> \"" << obj_name
-                                  << "\" is unknown, created with zero value.\n"
-                                  << std::endl;
-                    }
+                    throw OpalException("SRefExpr::fill()",
+                                        "\nThe <variable> \"" + obj_name + "\" is unknown.\n");
                 } else {
                     throw OpalException("SRefExpr::fill()",
                                         "Object \"" + obj_name + "\" is unknown.");

src/OpalParser/OpalParser.cpp

@@ -586,7 +586,7 @@ Statement *OpalParser::readStatement(TokenStream *is) const {
         boost::replace_all(what, "\n", "\n    ");
 
         ERRORMSG("     " << *stat <<"    a" << what << '\n' << endl);
-	
+
         stat = readStatement(is);
 	exit(1);
     }
@@ -620,6 +620,7 @@ void OpalParser::run() const {
             boost::replace_all(what, "\n", "\n    ");
 
             ERRORMSG("     " << *stat <<"    " << what << '\n' << endl);
+            exit(1);
         } catch(ClassicException &ex) {
             ERRORMSG("\n*** User error detected by function \""
                      << ex.where() << "\"" << endl);
@@ -628,6 +629,7 @@ void OpalParser::run() const {
             boost::replace_all(what, "\n", "\n    ");
 
             ERRORMSG("     " << *stat <<"    " << what << '\n' << endl);
+            exit(1);
         } catch(bad_alloc &) {
             ERRORMSG("\n*** Error:" << endl);
             stat->printWhere(*IpplInfo::Error, false);
@@ -731,4 +733,4 @@ std::string OpalParser::getHint(const std::string &name, const std::string &type
     }
 
     return "";
-}
+}
\ No newline at end of file