--- capa/capa51/pProj/capaFormula.y	2000/06/30 21:36:16	1.3
+++ capa/capa51/pProj/capaFormula.y	2000/07/07 18:30:57	1.4
@@ -211,6 +211,9 @@ f_symbol_pow(ap,bp) Symbol *ap; Symbol *
      case S_CONSTANT: 
      default:         error = 1; break;
   }
+  if ((!(((double)((int)b)) == b)) && (a < 0.0)) {
+    error = 1;
+  }
   if (!error) {
     cp = (Symbol *)capa_malloc(sizeof(Symbol),1);
     cp->s_type = R_CONSTANT;