* gcc.c-torture/execute/980604-1.c: New test.
authorJeffrey A Law <law@cygnus.com>
Thu, 4 Jun 1998 00:40:23 +0000 (00:40 +0000)
committerJeff Law <law@gcc.gnu.org>
Thu, 4 Jun 1998 00:40:23 +0000 (18:40 -0600)
From-SVN: r20216

gcc/testsuite/ChangeLog
gcc/testsuite/gcc.c-torture/execute/980604-1.c [new file with mode: 0644]

index f656016940e51eefc7d09efb7740b4df18e3b3ee..3d43e5b56a1f95661f28edc692013116d46db475 100644 (file)
@@ -1,3 +1,7 @@
+Thu Jun  4 01:39:24 1998  Jeffrey A Law  (law@cygnus.com)
+
+       * gcc.c-torture/execute/980604-1.c: New test.
+
 Tue Jun  2 20:51:43 1998  Jeffrey A Law  (law@cygnus.com)
 
        * gcc.c-torture/execute/980602-1.c: New test.
diff --git a/gcc/testsuite/gcc.c-torture/execute/980604-1.c b/gcc/testsuite/gcc.c-torture/execute/980604-1.c
new file mode 100644 (file)
index 0000000..959e4cf
--- /dev/null
@@ -0,0 +1,1633 @@
+# 1 "dhry_1.c"
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# 1 "dhry.h" 1
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+                 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+  typedef       enum    {Ident_1, Ident_2, Ident_3, Ident_4, Ident_5}
+                Enumeration;
+
+         
+
+
+# 1 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/stdio.h" 1 3
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# 1 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/_ansi.h" 1 3
+
+
+
+
+
+
+
+
+
+
+
+
+# 1 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/sys/config.h" 1 3
+
+
+
+# 14 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/sys/config.h" 3
+
+
+# 25 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/sys/config.h" 3
+
+
+
+
+
+
+
+
+
+
+# 44 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/sys/config.h" 3
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+typedef int __int32_t;
+typedef unsigned int __uint32_t;
+
+
+
+
+
+
+
+# 15 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/_ansi.h" 2 3
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# 61 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/_ansi.h" 3
+
+
+
+
+
+
+
+
+
+
+# 32 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/stdio.h" 2 3
+
+
+
+
+
+# 1 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/stddef.h" 1 3
+
+
+
+
+
+
+
+
+# 19 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/stddef.h" 3
+
+
+
+
+
+
+
+
+
+
+
+
+# 61 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/stddef.h" 3
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# 131 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/stddef.h" 3
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+typedef long unsigned int  size_t;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# 271 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/stddef.h" 3
+
+
+# 283 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/stddef.h" 3
+
+
+
+# 315 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/stddef.h" 3
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# 37 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/stdio.h" 2 3
+
+
+
+# 1 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/stdarg.h" 1 3
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# 1 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/va-mips.h" 1 3
+
+
+
+
+
+
+# 27 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/va-mips.h" 3
+
+
+typedef char * __gnuc_va_list;
+
+
+
+
+
+# 277 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/va-mips.h" 3
+
+# 27 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/stdarg.h" 2 3
+
+# 165 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/stdarg.h" 3
+
+
+
+
+
+
+# 238 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/include/stdarg.h" 3
+
+
+
+
+# 40 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/stdio.h" 2 3
+
+
+
+
+
+
+
+# 1 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/sys/reent.h" 1 3
+
+
+
+
+
+
+
+
+
+
+
+
+struct _glue 
+{
+  struct _glue *_next;
+  int _niobs;
+  struct __sFILE *_iobs;
+};
+
+struct _Bigint 
+{
+  struct _Bigint *_next;
+  int _k, _maxwds, _sign, _wds;
+  unsigned long _x[1];
+};
+
+
+
+
+
+
+struct _atexit {
+       struct  _atexit *_next;                  
+       int     _ind;                            
+       void    (*_fns[32 ])();  
+};
+
+
+
+
+
+
+
+struct __sbuf {
+       unsigned char *_base;
+       int     _size;
+};
+
+
+
+
+
+typedef long _fpos_t;           
+                                
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+struct __sFILE {
+  unsigned char *_p;    
+  int  _r;              
+  int  _w;              
+  short        _flags;          
+  short        _file;           
+  struct __sbuf _bf;    
+  int  _lbfsize;        
+
+   
+  void *       _cookie;         
+
+  int   (*_read)   (void *  _cookie, char *_buf, int _n)  ;
+  int   (*_write)   (void *  _cookie, const char *_buf, int _n)  ;
+  _fpos_t  (*_seek)   (void *  _cookie, _fpos_t _offset, int _whence)  ;
+  int   (*_close)   (void *  _cookie)  ;
+
+   
+  struct __sbuf _ub;    
+  unsigned char *_up;   
+  int  _ur;             
+
+   
+  unsigned char _ubuf[3];       
+  unsigned char _nbuf[1];       
+
+   
+  struct __sbuf _lb;    
+
+   
+  int  _blksize;        
+  int  _offset;         
+
+  struct _reent *_data;
+};
+
+
+
+
+
+
+
+
+struct _reent
+{
+   
+  int _errno;
+
+   
+
+
+  struct __sFILE *_stdin, *_stdout, *_stderr;
+
+  int  _inc;                    
+  char _emergency[25];
+  int _current_category;        
+  const  char *_current_locale;
+
+  int __sdidinit;               
+
+  void  (*__cleanup)   (struct _reent *)  ;
+
+   
+  struct _Bigint *_result;
+  int _result_k;
+  struct _Bigint *_p5s;
+  struct _Bigint **_freelist;
+
+   
+  int _cvtlen;                  
+  char *_cvtbuf;
+
+   
+
+
+
+  unsigned char * _nextf[30 ];
+  unsigned int _nmalloc[30 ];
+
+   
+  struct _atexit *_atexit;      
+  struct _atexit _atexit0;      
+
+   
+  void (**(_sig_func))();
+
+   
+
+
+  struct _glue __sglue;                         
+  struct __sFILE __sf[3];               
+};
+
+
+
+
+
+
+
+
+
+
+
+
+extern struct _reent *_impure_ptr  ;
+
+void _reclaim_reent  (struct _reent *)  ;
+
+
+
+
+
+
+
+
+
+
+# 48 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/stdio.h" 2 3
+
+
+typedef _fpos_t fpos_t;
+
+typedef struct __sFILE FILE;
+
+
+
+
+
+        
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+int     remove    (const char *)  ;
+int     rename    (const char *, const char *)  ;
+
+FILE *  tmpfile    (void)  ;
+char *  tmpnam    (char *)  ;
+int     fclose    (FILE *)  ;
+int     fflush    (FILE *)  ;
+FILE *  freopen    (const char *, const char *, FILE *)  ;
+void    setbuf    (FILE *, char *)  ;
+int     setvbuf    (FILE *, char *, int, size_t)  ;
+int     fprintf    (FILE *, const char *, ...)  ;
+int     fscanf    (FILE *, const char *, ...)  ;
+int     printf    (const char *, ...)  ;
+int     scanf    (const char *, ...)  ;
+int     sscanf    (const char *, const char *, ...)  ;
+int     vfprintf    (FILE *, const char *, __gnuc_va_list )  ;
+int     vprintf    (const char *, __gnuc_va_list )  ;
+int     vsprintf    (char *, const char *, __gnuc_va_list )  ;
+int     fgetc    (FILE *)  ;
+char *   fgets    (char *, int, FILE *)  ;
+int     fputc    (int, FILE *)  ;
+int     fputs    (const char *, FILE *)  ;
+int     getc    (FILE *)  ;
+int     getchar    (void)  ;
+char *   gets    (char *)  ;
+int     putc    (int, FILE *)  ;
+int     putchar    (int)  ;
+int     puts    (const char *)  ;
+int     ungetc    (int, FILE *)  ;
+size_t  fread    (void * , size_t _size, size_t _n, FILE *)  ;
+size_t  fwrite    (const void *  , size_t _size, size_t _n, FILE *)  ;
+int     fgetpos    (FILE *, fpos_t *)  ;
+int     fseek    (FILE *, long, int)  ;
+int     fsetpos    (FILE *, const fpos_t *)  ;
+long    ftell    ( FILE *)  ;
+void    rewind    (FILE *)  ;
+void    clearerr    (FILE *)  ;
+int     feof    (FILE *)  ;
+int     ferror    (FILE *)  ;
+void     perror    (const char *)  ;
+
+FILE *  fopen    (const char *_name, const char *_type)  ;
+int     sprintf    (char *, const char *, ...)  ;
+
+
+int     vfiprintf    (FILE *, const char *, __gnuc_va_list )  ;
+int     iprintf    (const char *, ...)  ;
+int     fiprintf    (FILE *, const char *, ...)  ;
+int     siprintf    (char *, const char *, ...)  ;
+
+
+
+
+
+
+
+FILE *  fdopen    (int, const char *)  ;
+
+int     fileno    (FILE *)  ;
+int     getw    (FILE *)  ;
+int     pclose    (FILE *)  ;
+FILE *   popen    (const char *, const char *)  ;
+int     putw    (int, FILE *)  ;
+void     setbuffer    (FILE *, char *, int)  ;
+int     setlinebuf    (FILE *)  ;
+
+
+
+
+
+FILE *  _fdopen_r    (struct _reent *, int, const char *)  ;
+FILE *  _fopen_r    (struct _reent *, const char *, const char *)  ;
+int     _getchar_r    (struct _reent *)  ;
+char *  _gets_r    (struct _reent *, char *)  ;
+int     _iprintf_r    (struct _reent *, const char *, ...)  ;
+int     _mkstemp_r    (struct _reent *, char *)  ;
+char *  _mktemp_r    (struct _reent *, char *)  ;
+void    _perror_r    (struct _reent *, const char *)  ;
+int     _printf_r    (struct _reent *, const char *, ...)  ;
+int     _putchar_r    (struct _reent *, int)  ;
+int     _puts_r    (struct _reent *, const char *)  ;
+int     _remove_r    (struct _reent *, const char *)  ;
+int     _rename_r    (struct _reent *,
+                          const char *_old, const char *_new)  ;
+int     _scanf_r    (struct _reent *, const char *, ...)  ;
+int     _sprintf_r    (struct _reent *, char *, const char *, ...)  ;
+char *  _tempnam_r    (struct _reent *, char *, char *)  ;
+FILE *  _tmpfile_r    (struct _reent *)  ;
+char *  _tmpnam_r    (struct _reent *, char *)  ;
+int     _vfprintf_r    (struct _reent *, FILE *, const char *, __gnuc_va_list )  ;
+int     _vprintf_r    (struct _reent *, const char *, __gnuc_va_list )  ;
+int     _vsprintf_r    (struct _reent *, char *, const char *, __gnuc_va_list )  ;
+
+
+
+
+int     __srget    (FILE *)  ;
+int     __swbuf    (int, FILE *)  ;
+
+
+
+
+
+FILE   *  funopen   (const void *  _cookie,
+               int (*readfn)(void *  _cookie, char *_buf, int _n),
+               int (*writefn)(void *  _cookie, const char *_buf, int _n),
+               fpos_t (*seekfn)(void *  _cookie, fpos_t _off, int _whence),
+               int (*closefn)(void *  _cookie))  ;
+
+
+
+
+
+
+
+
+
+# 259 "/usr/cygnus/latest-940103/H-hppa1.1-hp-hpux10/lib/gcc-lib/mips64r5900-elf/cygnus-2.91.22/../../../../mips64r5900-elf/include/stdio.h" 3
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# 361 "dhry.h" 2
+
+                 
+
+
+                 
+
+
+
+typedef int     One_Thirty;
+typedef int     One_Fifty;
+typedef char    Capital_Letter;
+typedef int     Boolean;
+typedef char    Str_30 [31];
+typedef int     Arr_1_Dim [50];
+typedef int     Arr_2_Dim [50] [50];
+
+typedef struct record 
+    {
+    struct record *Ptr_Comp;
+    Enumeration    Discr;
+    union {
+          struct {
+                  Enumeration Enum_Comp;
+                  int         Int_Comp;
+                  char        Str_Comp [31];
+                  } var_1;
+          struct {
+                  Enumeration E_Comp_2;
+                  char        Str_2_Comp [31];
+                  } var_2;
+          struct {
+                  char        Ch_1_Comp;
+                  char        Ch_2_Comp;
+                  } var_3;
+          } variant;
+      } Rec_Type, *Rec_Pointer;
+# 18 "dhry_1.c" 2
+
+
+
+
+
+
+
+
+Rec_Pointer     Ptr_Glob,
+                Next_Ptr_Glob;
+int             Int_Glob;
+Boolean         Bool_Glob;
+char            Ch_1_Glob,
+                Ch_2_Glob;
+int             Arr_1_Glob [50];
+int             Arr_2_Glob [50] [50];
+int    malc1[100], malc2[100];
+
+Enumeration     Func_1 ();
+   
+
+        Boolean Reg = 0 ;
+
+         
+         
+
+
+
+# 65 "dhry_1.c"
+
+# 75 "dhry_1.c"
+
+
+
+
+
+long            Begin_Time,
+                End_Time,
+                User_Time;
+float           Microseconds,
+                Dhrystones_Per_Second;
+
+ENTRY ()
+   
+   
+{
+
+
+        One_Fifty       Int_1_Loc;
+      One_Fifty       Int_2_Loc;
+        One_Fifty       Int_3_Loc;
+      char            Ch_Index;
+        Enumeration     Enum_Loc;
+        Str_30          Str_1_Loc;
+        Str_30          Str_2_Loc;
+      int             Run_Index;
+      int             Number_Of_Runs;
+   
+
+
+  Next_Ptr_Glob = (Rec_Pointer) malc1;
+  Ptr_Glob = (Rec_Pointer) malc2;
+  Ptr_Glob->Ptr_Comp                    = Next_Ptr_Glob;
+  Ptr_Glob->Discr                       = Ident_1;
+  Ptr_Glob->variant.var_1.Enum_Comp     = Ident_3;
+  Ptr_Glob->variant.var_1.Int_Comp      = 40;
+  strcpy (Ptr_Glob->variant.var_1.Str_Comp, 
+          "DHRYSTONE PROGRAM, SOME STRING");
+  strcpy (Str_1_Loc, "DHRYSTONE PROGRAM, 1'ST STRING");
+  Arr_2_Glob [8][7] = 10;
+         
+         
+         
+         
+
+# 160 "dhry_1.c"
+
+   
+   
+
+   
+   
+   
+
+
+
+
+
+
+
+
+
+
+
+  for (Run_Index = 1; Run_Index <= Number_Of_Runs; ++Run_Index)
+  {
+    Proc_5();
+    Proc_4();
+       
+    Int_1_Loc = 2;
+    Int_2_Loc = 3;
+    strcpy (Str_2_Loc, "DHRYSTONE PROGRAM, 2'ND STRING");      
+    Enum_Loc = Ident_2;
+    Bool_Glob = ! Func_2 (Str_1_Loc, Str_2_Loc);
+                                            
+    while (Int_1_Loc < Int_2_Loc)   
+    {
+      Int_3_Loc = 5 * Int_1_Loc - Int_2_Loc;
+         
+      Proc_7 (Int_1_Loc, Int_2_Loc, &Int_3_Loc);
+         
+      Int_1_Loc += 1;
+    }  
+       
+    Proc_8 (Arr_1_Glob, Arr_2_Glob, Int_1_Loc, Int_3_Loc);
+       
+    Proc_1 (Ptr_Glob);                                       
+    for (Ch_Index = 'A'; Ch_Index <= Ch_2_Glob; ++Ch_Index)
+                              
+    {
+      if (Enum_Loc == Func_1 (Ch_Index, 'C'))
+           
+        {
+        Proc_6 (Ident_1, &Enum_Loc);
+        strcpy (Str_2_Loc, "DHRYSTONE PROGRAM, 3'RD STRING");
+        Int_2_Loc = Run_Index;
+        Int_Glob = Run_Index;
+        }
+    }
+       
+    Int_2_Loc = Int_2_Loc * Int_1_Loc;                       
+    Int_1_Loc = Int_2_Loc / Int_3_Loc;
+    Int_2_Loc = 7 * (Int_2_Loc - Int_3_Loc) - Int_1_Loc;
+       
+    Proc_2 (&Int_1_Loc);
+       
+
+  }  
+
+
+   
+   
+   
+
+
+
+
+
+
+
+
+
+
+
+# 299 "dhry_1.c"
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+pass();
+
+}
+Proc_1 (Ptr_Val_Par)
+  Rec_Pointer Ptr_Val_Par;
+     
+{
+    Rec_Pointer Next_Record = Ptr_Val_Par->Ptr_Comp;  
+                                         
+   
+   
+  
+   *Ptr_Val_Par->Ptr_Comp  =   *Ptr_Glob  ; 
+  Ptr_Val_Par->variant.var_1.Int_Comp = 5;
+  Next_Record->variant.var_1.Int_Comp 
+        = Ptr_Val_Par->variant.var_1.Int_Comp;
+  Next_Record->Ptr_Comp = Ptr_Val_Par->Ptr_Comp;
+  Proc_3 (&Next_Record->Ptr_Comp);
+     
+
+  if (Next_Record->Discr == Ident_1)
+     
+  {
+    Next_Record->variant.var_1.Int_Comp = 6;        
+    Proc_6 (Ptr_Val_Par->variant.var_1.Enum_Comp, 
+           &Next_Record->variant.var_1.Enum_Comp);
+    Next_Record->Ptr_Comp = Ptr_Glob->Ptr_Comp;
+    Proc_7 (Next_Record->variant.var_1.Int_Comp, 10, 
+           &Next_Record->variant.var_1.Int_Comp);
+  }
+  else  
+     *Ptr_Val_Par  =   *Ptr_Val_Par->Ptr_Comp  ;
+}  
+Proc_2 (Int_Par_Ref)
+     
+     
+One_Fifty   *Int_Par_Ref;
+{
+  One_Fifty  Int_Loc;  
+  Enumeration   Enum_Loc;
+  Int_Loc = *Int_Par_Ref + 10;
+  do  
+    if (Ch_1_Glob == 'A')
+       
+    {
+      Int_Loc -= 1;
+      *Int_Par_Ref = Int_Loc - Int_Glob;
+      Enum_Loc = Ident_1;
+    }  
+  while (Enum_Loc != Ident_1);  
+}  
+Proc_3 (Ptr_Ref_Par)
+     
+     
+Rec_Pointer *Ptr_Ref_Par;
+{
+  if (Ptr_Glob != 0 )
+     
+    *Ptr_Ref_Par = Ptr_Glob->Ptr_Comp;              
+  Proc_7 (10, Int_Glob, &Ptr_Glob->variant.var_1.Int_Comp);
+}  
+Proc_4 ()  
+     
+{
+  Boolean Bool_Loc;
+  Bool_Loc = Ch_1_Glob == 'A';
+  Bool_Glob = Bool_Loc | Bool_Glob;   
+  Ch_2_Glob = 'B';                    
+}  
+Proc_5 ()  
+     
+{
+  Ch_1_Glob = 'A';
+  Bool_Glob = 0 ;               
+}  
+         
+         
+# 441 "dhry_1.c"
+