|
173
|
1 ! RUN: %S/test_errors.sh %s %t %f18
|
|
|
2 ! Testing 7.6 enum
|
|
|
3
|
|
|
4 ! OK
|
|
|
5 enum, bind(C)
|
|
|
6 enumerator :: red, green
|
|
|
7 enumerator blue, pink
|
|
|
8 enumerator yellow
|
|
|
9 enumerator :: purple = 2
|
|
|
10 end enum
|
|
|
11
|
|
|
12 integer(yellow) anint4
|
|
|
13
|
|
|
14 enum, bind(C)
|
|
|
15 enumerator :: square, cicrle
|
|
|
16 !ERROR: 'square' is already declared in this scoping unit
|
|
|
17 enumerator square
|
|
|
18 end enum
|
|
|
19
|
|
|
20 dimension :: apple(4)
|
|
|
21 real :: peach
|
|
|
22
|
|
|
23 enum, bind(C)
|
|
|
24 !ERROR: 'apple' is already declared in this scoping unit
|
|
|
25 enumerator :: apple
|
|
|
26 enumerator :: pear
|
|
|
27 !ERROR: 'peach' is already declared in this scoping unit
|
|
|
28 enumerator :: peach
|
|
|
29 !ERROR: 'red' is already declared in this scoping unit
|
|
|
30 enumerator :: red
|
|
|
31 end enum
|
|
|
32
|
|
|
33 enum, bind(C)
|
|
|
34 !ERROR: Enumerator value could not be computed from the given expression
|
|
|
35 !ERROR: Must be a constant value
|
|
|
36 enumerator :: wrong = 0/0
|
|
|
37 end enum
|
|
|
38
|
|
|
39 end
|
