(root)/
gcc-13.2.0/
gcc/
testsuite/
gfortran.dg/
enum_10.c
       1  /* This testcase is meant to be compiled together with enum_10.f90  */
       2  
       3  extern void abort (void);
       4  
       5  typedef enum
       6    { MAX1 = 127 } onebyte;
       7  
       8  void f1_ (onebyte *i, int *j)
       9  {
      10    if (*i != *j) abort ();
      11  }
      12  
      13  typedef enum
      14    { MAX2 = 32767 } twobyte;
      15  
      16  void f2_ (twobyte *i, int *j)
      17  {
      18    if (*i != *j) abort ();
      19  }
      20  
      21  typedef enum
      22    { MAX4 = 2000000 } fourbyte; /* don't need the precise value. */
      23  
      24  void f4_ (fourbyte *i, int *j)
      25  {
      26    if (*i != *j) abort ();
      27  }