mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
71068ae7eb
of the jdk15 unit in that case)
* adjusted testall.sh script so it can also be used to test class
files compiled for Android (still with the JVM though)
git-svn-id: branches/jvmbackend@19835 -
33 lines
545 B
ObjectPascal
33 lines
545 B
ObjectPascal
program tclassproptest;
|
|
|
|
{$mode objfpc}
|
|
|
|
uses
|
|
{$ifdef java}jdk15{$else}androidr14{$endif};
|
|
|
|
type
|
|
tclassprop = class
|
|
strict private
|
|
class var fx: longint;
|
|
public
|
|
class property x: longint read fx write fx;
|
|
class procedure test(l: longint);
|
|
end;
|
|
|
|
class procedure tclassprop.test(l: longint);
|
|
begin
|
|
if fx<>l then
|
|
raise jlexception.create('test 1 error');
|
|
end;
|
|
|
|
|
|
var
|
|
c: tclassprop;
|
|
begin
|
|
c:=tclassprop.create;
|
|
c.x:=123;
|
|
c.test(123);
|
|
if c.x<>123 then
|
|
raise jlexception.create('test 2 error');
|
|
end.
|