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 
f1_(onebyte * i,int * j)8 void f1_ (onebyte *i, int *j)
9 {
10   if (*i != *j) abort ();
11 }
12 
13 typedef enum
14   { MAX2 = 32767 } twobyte;
15 
f2_(twobyte * i,int * j)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 
f4_(fourbyte * i,int * j)24 void f4_ (fourbyte *i, int *j)
25 {
26   if (*i != *j) abort ();
27 }
28