Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/enum_10.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* This testcase is meant to be compiled together with enum_10.f90 */
kono
parents:
diff changeset
2
kono
parents:
diff changeset
3 extern void abort (void);
kono
parents:
diff changeset
4
kono
parents:
diff changeset
5 typedef enum
kono
parents:
diff changeset
6 { MAX1 = 127 } onebyte;
kono
parents:
diff changeset
7
kono
parents:
diff changeset
8 void f1_ (onebyte *i, int *j)
kono
parents:
diff changeset
9 {
kono
parents:
diff changeset
10 if (*i != *j) abort ();
kono
parents:
diff changeset
11 }
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 typedef enum
kono
parents:
diff changeset
14 { MAX2 = 32767 } twobyte;
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 void f2_ (twobyte *i, int *j)
kono
parents:
diff changeset
17 {
kono
parents:
diff changeset
18 if (*i != *j) abort ();
kono
parents:
diff changeset
19 }
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 typedef enum
kono
parents:
diff changeset
22 { MAX4 = 2000000 } fourbyte; /* don't need the precise value. */
kono
parents:
diff changeset
23
kono
parents:
diff changeset
24 void f4_ (fourbyte *i, int *j)
kono
parents:
diff changeset
25 {
kono
parents:
diff changeset
26 if (*i != *j) abort ();
kono
parents:
diff changeset
27 }