MODULE constsubrange3 ;

VAR
   a: [10..20] ;
BEGIN
   a := 8
END constsubrange3.