Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/enum_10.c @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 04ced10e8804
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 }