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 }