paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 15:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test for last commit

Browse Source 
git-svn-id: trunk@13434 -
This commit is contained in:
florian 2009-07-24 17:19:37 +00:00
parent 6dc51122e7
commit 11f25885a4
2 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -9212,6 +9212,7 @@ tests/webtbs/tw1412.pp svneol=native#text/plain
tests/webtbs/tw14134.pp svneol=native#text/plain
tests/webtbs/tw1414.pp svneol=native#text/plain
tests/webtbs/tw14143.pp svneol=native#text/plain
tests/webtbs/tw14149.pp svneol=native#text/plain
tests/webtbs/tw14155.pp svneol=native#text/plain
tests/webtbs/tw1416.pp svneol=native#text/plain
tests/webtbs/tw14174.pp svneol=native#text/plain

22
tests/webtbs/tw14149.pp Normal file
View File

@ -0,0 +1,22 @@
{ %target=linux,darwin,freebsd,netbsd,openbsd,sunos,beos,haiku }
Program Example59;
{ Program to demonstrate the Alarm function. }
Uses BaseUnix;
Procedure AlarmHandler(Sig : cint);cdecl;
begin
Writeln ('Got to alarm handler');
end;
begin
Writeln('Setting alarm handler');
fpSignal(SIGALRM,SignalHandler(@AlarmHandler));
Writeln ('Scheduling Alarm in 10 seconds');
fpAlarm(10);
Writeln ('Pausing');
fpPause;
Writeln ('Pause returned');
end.