| ! RUN: %S/test_errors.sh %s %t %f18 |
| ! Testing 7.6 enum |
| |
| ! OK |
| enum, bind(C) |
| enumerator :: red, green |
| enumerator blue, pink |
| enumerator yellow |
| enumerator :: purple = 2 |
| end enum |
| |
| integer(yellow) anint4 |
| |
| enum, bind(C) |
| enumerator :: square, cicrle |
| !ERROR: 'square' is already declared in this scoping unit |
| enumerator square |
| end enum |
| |
| dimension :: apple(4) |
| real :: peach |
| |
| enum, bind(C) |
| !ERROR: 'apple' is already declared in this scoping unit |
| enumerator :: apple |
| enumerator :: pear |
| !ERROR: 'peach' is already declared in this scoping unit |
| enumerator :: peach |
| !ERROR: 'red' is already declared in this scoping unit |
| enumerator :: red |
| end enum |
| |
| enum, bind(C) |
| !ERROR: Enumerator value could not be computed from the given expression |
| !ERROR: Must be a constant value |
| enumerator :: wrong = 0/0 |
| end enum |
| |
| end |