mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:43:04 +01:00
31 lines
776 B
ObjectPascal
31 lines
776 B
ObjectPascal
{ %cpu=i386,powerpc}
|
|
{ %target=linux,win32,go32v2,os2,beos,haiku,morphos }
|
|
{ %OPT=-glhc }
|
|
{ Source provided for Free Pascal Bug Report 3661 }
|
|
{ Submitted by "Martin Schreiber" on 2005-02-16 }
|
|
{ e-mail: }
|
|
program project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
uses
|
|
Classes;
|
|
|
|
|
|
var
|
|
f: text;
|
|
begin
|
|
HaltOnNotReleased := true;
|
|
{ The subject matter of the test is heaptrc checking pointers belonging to .data
|
|
or .bss sections. However, using a standard io file for this purpose is not a good
|
|
idea, because it is a threadvar and resides in .bss only in certain circumstances
|
|
(FPC-specific threadvar model and multithreading not initialized).
|
|
Using a 'normal' file is fine. }
|
|
//writeln('abc');
|
|
|
|
assign(f,'tw3661.txt');
|
|
rewrite(f);
|
|
writeln(f,'abc');
|
|
close(f);
|
|
erase(f);
|
|
end.
|