testsuite/sanity/004all08/ams08.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

entity vibration is
end;

architecture behav of vibration is
  subtype displacement is real tolerance "def_disp";
  nature electrical is real across real through ref reference;
  quantity x1 : real;
  terminal v0, v1 : electrical;
--  quantity vd1 across id1, ic1 through v0 to v1;
  quantity vd2 := 5.2 across v0 to v1;
  quantity vd3 through v0 to v1;
begin
  x1 == 3.5;
end behav;