flang/test/Semantics/modfile31.f90

   1 ! RUN: %python %S/test_modfile.py %s %flang_fc1
   2 ! Test 7.6 enum values
   3
   4 module 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
  18 end
  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