2 ! { dg-additional-sources enum_10.c }
3 ! { dg-options "-fshort-enums -w" }
4 ! Make sure short enums are indeed interoperable with the
5 ! corresponding C type.
9 enumerator :: one1 = 1, two1, max1 = huge(1_1)
13 enumerator :: one2 = 1, two2, max2 = huge(1_2)
17 enumerator :: one4 = 1, two4, max4 = huge(1_4)
26 integer (kind(max1)) :: i
35 integer (kind(max2)) :: i
44 integer (kind(max4)) :: i
52 call f1 (max1, huge(1_1)+0) ! Adding 0 to get default integer
56 call f2 (max2, huge(1_2)+0)
60 call f4 (max4, huge(1_4)+0)
63 ! { dg-final { cleanup-modules "enum_10" } }