{ Compiling with "gpc -c cstringbug.pas" causes:

    cstringbug.pas:14: internal compiler error: in assign_stack_temp_for_type, at function.c:660 }

program cstringbug;

  var s : string (20);
      c : CString;

begin

{ Intent was to call "String2CString" below, but wrong name was used }

  c := CString2String (s + 'bad')
end.