36 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12! Test 7.6 enum values3 4module m15 integer, parameter :: x(1) = [4]6 enum, bind(C)7 enumerator :: red, green8 enumerator blue9 enumerator yellow10 enumerator :: purple = 211 enumerator :: brown12 end enum13 14 enum, bind(C)15 enumerator :: oak, beech = -rank(x)*x(1), pine, poplar = brown16 end enum17 18end19 20!Expect: m1.mod21!module m122!integer(4),parameter::x(1_8:1_8)=[INTEGER(4)::4_4]23!integer(4),parameter::red=0_424!integer(4),parameter::green=1_425!integer(4),parameter::blue=2_426!integer(4),parameter::yellow=3_427!integer(4),parameter::purple=2_428!integer(4),parameter::brown=3_429!integer(4),parameter::oak=0_430!integer(4),parameter::beech=-4_431!intrinsic::rank32!integer(4),parameter::pine=-3_433!integer(4),parameter::poplar=3_434!end35 36