accept string values of -D

gcc/cobol/cdf.y

@@ -759,10 +759,10 @@ defined_cmd( const char arg[] )
   if(p) {
     *p++ = '\0';
     int pos, number;
-    if( 1 == sscanf(p, "%d%n", &number, &pos) ) {
-      if( size_t(pos) == strlen(p) ) {
+    if( 1 == sscanf(p, "%d%n", &number, &pos) && size_t(pos) == strlen(p) ) {
 	value = cdfval_t(number);
-      }
+    } else {
+      value = cdfval_t(p);  // it's a string
     }
   }
   

gcc/cobol/scan.l

@@ -1087,7 +1087,7 @@ USE({SPC}FOR)?		{ return USE; }
   FD/[[:blank:]]+       { parsing.need_level(false); return FD; }
   SD/[[:blank:]]+       { parsing.need_level(false); return SD; }
 
-  {NAME}                { yylval.string = strdup(yytext);
+  {NAME}                { ydflval.string = yylval.string = strdup(yytext);
                           const char *value = is_numeric_constant(yytext);
                           return value? numstr_of(value) : NAME; }