2 ! { dg-options "-fshort-enums -w" }
3 ! { dg-options "-fshort-enums -w -Wl,--no-enum-size-warning" { target arm_eabi } }
4 ! { dg-additional-sources enum_10.c }
5 ! Make sure short enums are indeed interoperable with the
6 ! corresponding C type.
10 enumerator
:: one1
= 1, two1
, max1
= huge(1_1)
14 enumerator
:: one2
= 1, two2
, max2
= huge(1_2)
18 enumerator
:: one4
= 1, two4
, max4
= huge(1_4)
27 integer (kind(max1
)) :: i
36 integer (kind(max2
)) :: i
45 integer (kind(max4
)) :: i
53 call f1 (max1
, huge(1_1)+0) ! Adding 0 to get default integer
57 call f2 (max2
, huge(1_2)+0)
61 call f4 (max4
, huge(1_4)+0)