| ! { dg-do run } | |
| ! { dg-options "-fshort-enums" } | |
| ! Program to test enumerations when option -fshort-enums is given | |
| program main | |
| implicit none | |
| enum, bind (c) | |
| enumerator :: red, black = 127 | |
| enumerator blue | |
| end enum | |
| if (red /= 0) call abort | |
| if (black /= 127) call abort | |
| if (blue /= 128) call abort | |
| end program main |