Fix assigning typed regex to FS and RS.

1 files changed, 1 insertions, 1 deletions

diff --git a/field.c b/field.c
index feba8fd8..8814233a 100644
--- a/field.c
+++ b/field.c
@@ -1311,7 +1311,7 @@ choose_fs_function:
 			warned = true;
 			lintwarn(_("null string for `FS' is a gawk extension"));
 		}
-	} else if (fs->stlen > 1) {
+	} else if (fs->stlen > 1 || (fs->flags & REGEX) != 0) {
 		if (do_lint_old)
 			lintwarn(_("old awk does not support regexps as value of `FS'"));
 		set_parser(re_parse_field);