! { dg-do compile } | |
! Program to test the initialisation range of enumerators | |
! and kind values check | |
program main | |
implicit none | |
enum, bind (c) | |
enumerator :: pp, qq = 4294967295, rr ! { dg-error "too big for its kind" } | |
end enum ! { dg-error "has no ENUMERATORS" } | |
enum, bind (c) | |
enumerator :: p , q = 4294967299_8, r ! { dg-error "Arithmetic overflow" } | |
end enum ! { dg-error "has no ENUMERATORS" } | |
end program main |