1! RUN: %S/test_modfile.sh %s %t %flang_fc1
2! REQUIRES: shell
3! Test 7.6 enum values
4
5module m1
6  integer, parameter :: x(1) = [4]
7  enum, bind(C)
8    enumerator :: red, green
9    enumerator blue
10    enumerator yellow
11    enumerator :: purple = 2
12    enumerator :: brown
13  end enum
14
15  enum, bind(C)
16    enumerator :: oak, beech = -rank(x)*x(1), pine, poplar = brown
17  end enum
18
19end
20
21!Expect: m1.mod
22!module m1
23!integer(4),parameter::x(1_8:1_8)=[INTEGER(4)::4_4]
24!integer(4),parameter::red=0_4
25!integer(4),parameter::green=1_4
26!integer(4),parameter::blue=2_4
27!integer(4),parameter::yellow=3_4
28!integer(4),parameter::purple=2_4
29!integer(4),parameter::brown=3_4
30!integer(4),parameter::oak=0_4
31!integer(4),parameter::beech=-4_4
32!intrinsic::rank
33!integer(4),parameter::pine=-3_4
34!integer(4),parameter::poplar=3_4
35!end
36
37