1! { dg-do compile }
2! Program to test the initialisation range of enumerators
3! and kind values check
4
5program 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
15end program main
16