PageRenderTime 46ms CodeModel.GetById 43ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/packages/openssl/examples/test1.pas

https://github.com/slibre/freepascal
Pascal | 14 lines | 9 code | 4 blank | 1 comment | 1 complexity | ad42e809bc42744c76393624318760b0 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 1program test1;
 2
 3{$mode objfpc}{$H+}
 4
 5uses
 6  OpenSSL;
 7
 8begin
 9  if InitSSLInterface then
10    Writeln('Success')
11  else
12    Writeln('Holy shit!');
13end.
14