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