--- typeck.c.orig	2017-05-13 19:06:15.388910371 +0930
+++ typeck.c	2017-05-13 19:25:07.128888350 +0930
@@ -6785,6 +6785,7 @@
 				}
 				goto non_integer_move;
 			case CB_CATEGORY_NUMERIC:
+			case CB_CATEGORY_NUMERIC_EDITED:
 				if (fdst->pic->scale < 0) {
 					/* Check for PIC 9(n)P(m) */
 					if (least_significant < -fdst->pic->scale) {
@@ -6797,13 +6798,6 @@
 					}
 				}
 				break;
-			case CB_CATEGORY_NUMERIC_EDITED:
-				if (is_value) {
-					goto expect_alphanumeric;
-				}
-
-				/* TODO */
-				break;
 			case CB_CATEGORY_ALPHABETIC:
 				if (is_value) {
 					goto expect_alphanumeric;