blob: 819c58708018bb3a531d96a9f7c6ec4584fdd5a6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { 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
|
