MODULE constsubrange2 ;

VAR
   a: [10..20] ;
BEGIN
   a := 8 + 1
END constsubrange2.