VSI Pasacl x64-64 X6.3-138 (50x6f) on OpenVMS x86-64 V9.2-1
If you use a [truncate] attribute in a procedure,. you throw an access violation if the parameter is not specified from the calling code.
Code: Select all
program test(input, output)
type
varying_string = varying [132] of char;
procedure do_error (action : [truncate] varying_string);
begin
if present( action ) then
begin
writeln( action );
end
else
begin
writeln( "no action" );
end;
end;
begin
do_error;
end.