testsuite/gna/bug036/phys2.vhdl


1
2
3
4
5
6
7
8
9

package phys2 is
  subtype mybv is bit_vector (0 to 3600000);

  type ANGLE is range mybv'range units
    sec;
    min = 60 sec;
    deg = 60 min;
  end units;
end phys2;