Copied in the wrong file. I'll have to go find the right one.
authorJeff Law <law@gcc.gnu.org>
Fri, 5 Jun 1998 09:43:33 +0000 (03:43 -0600)
committerJeff Law <law@gcc.gnu.org>
Fri, 5 Jun 1998 09:43:33 +0000 (03:43 -0600)
From-SVN: r20241

gcc/testsuite/gcc.c-torture/execute/980604-1.c [deleted file]

diff --git a/gcc/testsuite/gcc.c-torture/execute/980604-1.c b/gcc/testsuite/gcc.c-torture/execute/980604-1.c
deleted file mode 100644 (file)
index 959e4cf..0000000
+++ /dev/null
@@ -1,1633 +0,0 @@
-# 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"
-