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