* part of r16347, forgot to commit

git-svn-id: trunk@16367 -

.gitattributes

@@ -10666,6 +10666,7 @@ tests/webtbs/tw1622.pp svneol=native#text/plain
 tests/webtbs/tw16222.pp svneol=native#text/pascal
 tests/webtbs/tw1623.pp svneol=native#text/plain
 tests/webtbs/tw16263a.pp svneol=native#text/plain
+tests/webtbs/tw16263b.pp svneol=native#text/plain
 tests/webtbs/tw16311.pp svneol=native#text/plain
 tests/webtbs/tw16315a.pp svneol=native#text/pascal
 tests/webtbs/tw16315b.pp svneol=native#text/pascal

tests/webtbs/tw16263b.pp

@@ -0,0 +1,31 @@
+{ %target=darwin,linux,freebsd,solaris,beos,haiku }
+{ %NEEDLIBRARY }
+
+{$mode delphi}
+program MainApp;
+
+uses
+  dynlibs,
+  Math;
+
+const
+{$ifdef windows}
+  libname='tw16263a.dll';
+{$else}
+  {$ifdef darwin}
+  libname = './libtw16263a.dylib';
+  {$else darwin}
+  libname = './libtw16263a.so';
+  {$endif darwin}
+{$endif}
+
+var
+  hdl: TLibHandle; 
+begin
+  // the library will perform a div-by-zero in its init code
+  setexceptionmask([exZeroDivide]);
+  hdl := loadlibrary(libname);
+  if (hdl=nilhandle) then
+    halt(1);
+  unloadlibrary(hdl);
+end.