fcl-passrc: useanalyzer: no hint for assembler result

git-svn-id: trunk@38080 -

packages/fcl-passrc/tests/tcuseanalyzer.pas

@@ -111,6 +111,7 @@ type
     procedure TestM_Hint_FunctionResultDoesNotSeemToBeSet_Abstract;
     procedure TestM_Hint_FunctionResultRecord;
     procedure TestM_Hint_FunctionResultPassRecordElement;
+    procedure TestM_Hint_FunctionResultAssembler;
     procedure TestM_Hint_AbsoluteVar;
 
     // whole program optimization
@@ -1585,6 +1586,19 @@ begin
   CheckUseAnalyzerUnexpectedHints;
 end;
 
+procedure TTestUseAnalyzer.TestM_Hint_FunctionResultAssembler;
+begin
+  StartProgram(false);
+  Add([
+  'function GetIt: longint; assembler;',
+  'asm',
+  'end;',
+  'begin',
+  '  GetIt;']);
+  AnalyzeProgram;
+  CheckUseAnalyzerUnexpectedHints;
+end;
+
 procedure TTestUseAnalyzer.TestM_Hint_AbsoluteVar;
 begin
   StartProgram(false);