Merge branch 'gawk-4.2-stable'

1 files changed, 7 insertions, 0 deletions

diff --git a/field.c b/field.c
index 52963249..1c209c26 100644
--- a/field.c
+++ b/field.c
@@ -837,6 +837,13 @@ get_field(long requested, Func_ptr *assign)
 	 * then the whole line must be rebuilt
 	 */
 	if (requested == 0) {
+		static bool warned = false;
+		extern int currule;
+
+		if (do_lint && currule == END && ! warned) {
+			warned = true;
+			lintwarn(_("accessing $0 from an END rule may not be portable"));
+		}
 		if (! field0_valid) {
 			/* first, parse remainder of input record */
 			if (NF == -1) {