for fixed-format, clear line-number area for short lines, too

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);

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; }