models/johnpye/testbadassign.a4c

REQUIRE "atoms.a4l";

MODEL testbadrelation;
	x IS_A distance;
	y IS_A speed;
	x = y;

METHODS

METHOD default_self;
END default_self;

END testbadrelation;

(*---------------------------*)

MODEL testbadassignment;
	x,y IS_A distance;
	x=y;
METHODS
METHOD specify;
	FIX x;
END specify;

METHOD values;
	x := 3.0 {m/s};
END values;

METHOD default_self;
	RUN reset; RUN values;
END default_self;
END testbadassignment;
1	REQUIRE "atoms.a4l";
2
3	MODEL testbadrelation;
4	x IS_A distance;
5	y IS_A speed;
6	x = y;
7
8	METHODS
9
10	METHOD default_self;
11	END default_self;
12
13	END testbadrelation;
14
15	(---------------------------)
16
17	MODEL testbadassignment;
18	x,y IS_A distance;
19	x=y;
20	METHODS
21	METHOD specify;
22	FIX x;
23	END specify;
24
25	METHOD values;
26	x := 3.0 {m/s};
27	END values;
28
29	METHOD default_self;
30	RUN reset; RUN values;
31	END default_self;
32	END testbadassignment;