*** p/util.c.orig	Sun Mar 23 02:08:50 2003
--- p/util.c	Tue Mar 25 18:07:16 2003
***************
*** 56,61 ****
--- 56,63 ----
  pascal_pushcase (constants)
       tree constants;
  {
+   if (EM (current_case_expression))
+     return;
    for (; constants; constants = TREE_CHAIN (constants))
      {
        tree duplicate;