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