--- p/gpc-common.c.orig	Wed May 15 03:39:48 2002
+++ p/gpc-common.c	Wed May 15 03:52:17 2002
@@ -1971,7 +1971,10 @@
 is_pascal_loop_check (op)
      tree op;
 {
-  STRIP_NOPS (op);
+  while (TREE_CODE (op) == NOP_EXPR
+         || TREE_CODE (op) == CONVERT_EXPR
+         || TREE_CODE (op) == NON_LVALUE_EXPR)
+    op = TREE_OPERAND (op, 0);
   return PASCAL_LOOP_CHECK (op);
 }