diff --git a/gcc/cobol/scan_ante.h b/gcc/cobol/scan_ante.h
index b007ac0e4015178bf372b472e100af66d3a9c0f0..eeaf78129040c1ee3d4da0227ec8833ff8566066 100644
--- a/gcc/cobol/scan_ante.h
+++ b/gcc/cobol/scan_ante.h
@@ -391,7 +391,10 @@ update_location_col( const char str[], int correction = 0) {
   }
 }
     
-  
+#define YY_USER_INIT do {			\
+    static YYLTYPE ones = {1,1, 1,1};		\
+    yylloc = ones;				\
+  } while(0)
 
 /*
  * YY_DECL is the generated lexer.  The parser calls yylex().  yylex() invokes