gcc/testsuite/gfortran.dg/enum_8.f90

   1 ! { dg-do compile }
   2 ! Program to test the initialisation range of enumerators
   3 ! and kind values check
   4
   5 program main
   6   implicit none
   7   enum, bind (c)
   8     enumerator :: pp, qq = 4294967295, rr ! { dg-error "too big for its kind" }
   9   end enum  ! { dg-error "has no ENUMERATORS" }
  10
  11   enum, bind (c)
  12     enumerator :: p , q = 4294967299_8, r  ! { dg-error "Arithmetic overflow" }
  13   end enum  ! { dg-error "has no ENUMERATORS" }
  14
  15 end program main