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
39end
40