diff --git a/gcc/cobol/cdf_text.h b/gcc/cobol/cdf_text.h
index 396fc44cd23a71bd76da25abf32eae2807dbcfaa..4f2c281f23c51a20d86aaa2ffce07ae9e8d7d1f1 100644
--- a/gcc/cobol/cdf_text.h
+++ b/gcc/cobol/cdf_text.h
@@ -151,6 +151,10 @@ cdftext::free_form_reference_format( int input ) {
     
     char *indcol = indicated(mfile.cur, mfile.eol); // true only for fixed format
 
+    if( is_fixed_format() && !indcol ) { // short line
+      erase_source(mfile.cur, mfile.eol);
+    }
+    
     if( indcol ) {
       // Set to blank columns 1-6 and anything past the right margin.
       erase_source(mfile.cur, indcol);
diff --git a/gcc/cobol/scan.l b/gcc/cobol/scan.l
index 6b62969d8123cbbd36b548c818fa212c43e79bc1..9dccbfb22df07cf647824de5c21ec81e5ad9179e 100644
--- a/gcc/cobol/scan.l
+++ b/gcc/cobol/scan.l
@@ -987,7 +987,7 @@ USE([[:space:]]+FOR)?		{ return USE; }
   CONSTANT		{ return CONSTANT; }
   CONTAINS		{ return CONTAINS; }
   DATA			{ return DATA; }
-  DEPENDING				{ return DEPENDING; }
+  DEPENDING		{ return DEPENDING; }
   DESCENDING		{ return DESCENDING; }
   DISPLAY		{ return DISPLAY; }
   EJECT			{ return EJECT; }