2014-04-15 Richard Biener <rguenther@suse.de>
[official-gcc.git] / gcc / testsuite / gfortran.dg / enum_9.f90
blobd3187c75b9bd8098d34f0d305e700453a07fb3bc
1 ! { dg-do run }
2 ! { dg-options "-fshort-enums" }
3 ! { dg-options "-fshort-enums -Wl,--no-enum-size-warning" { target arm*-*-linux* } }
4 ! Program to test enumerations when option -fshort-enums is given
6 program main
7 implicit none
8 enum, bind (c)
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