gcc/testsuite/gfortran.fortran-torture/execute/enum_3.f90

   1 ! Program to test the initialisation range of enumerators
   2 ! and kind values check
   3
   4 program main
   5   implicit none
   6
   7   enum, bind (c)
   8     enumerator :: red , yellow =255 , blue
   9   end enum
  10
  11   enum, bind (c)
  12     enumerator :: r , y = 32767, b
  13   end enum
  14
  15   enum, bind (c)
  16     enumerator :: aa , bb = 65535, cc
  17   end enum
  18
  19   enum, bind (c)
  20     enumerator :: m , n = 2147483645, o
  21   end enum
  22
  23
  24  if (red /= 0 ) STOP 1
  25  if (yellow /= 255) STOP 2
  26  if (blue /= 256) STOP 3
  27
  28  if (r /= 0 ) STOP 4
  29  if (y /= 32767) STOP 5
  30  if (b /= 32768) STOP 6
  31
  32  if (kind (red) /= 4) STOP 7
  33  if (kind (yellow) /= 4) STOP 8
  34  if (kind (blue) /= 4) STOP 9
  35
  36  if (kind(r) /= 4 ) STOP 10
  37  if (kind(y) /= 4) STOP 11
  38  if (kind(b) /= 4) STOP 12
  39
  40  if (aa /= 0 ) STOP 13
  41  if (bb /= 65535) STOP 14
  42  if (cc /= 65536) STOP 15
  43
  44  if (kind (aa) /= 4 ) STOP 16
  45  if (kind (bb) /= 4) STOP 17
  46  if (kind (cc) /= 4) STOP 18
  47
  48
  49  if (m /= 0 ) STOP 19
  50  if (n /= 2147483645) STOP 20
  51  if (o /= 2147483646) STOP 21
  52
  53  if (kind (m) /= 4 ) STOP 22
  54  if (kind (n) /= 4) STOP 23
  55  if (kind (o) /= 4) STOP 24
  56
  57 end program main