]>
Commit | Line | Data |
---|---|---|
25d8f0a2 TS |
1 | ! { dg-do run } |
2 | ! { dg-options "-fshort-enums" } | |
f8d6fa7e | 3 | ! { dg-options "-fshort-enums -Wl,--no-enum-size-warning" { target arm_eabi } } |
25d8f0a2 TS |
4 | ! Program to test enumerations when option -fshort-enums is given |
5 | ||
6 | program main | |
7 | implicit none | |
cce283c7 | 8 | enum, bind (c) |
25d8f0a2 TS |
9 | enumerator :: red, black = 127 |
10 | enumerator blue | |
11 | end enum | |
12 | if (red /= 0) call abort | |
13 | if (black /= 127) call abort | |
14 | if (blue /= 128) call abort | |
15 | end program main |