Unable to use strict priave type in nested procedure parameter

Original Reporter info from Mantis: alexvins

Reporter name: Alexander Shishkin

Description:

If class has some strict private type and it used as a parameter of nested procedure in method "Identifier not found" error occurs.

Steps to reproduce:

unit unit2;

{$mode objfpc}{$H+}

interface

type

  { TFoo }

  TFoo = class
  strict private
    type
      TBar = type integer;
  public
   procedure test;
  end;

implementation

{ TFoo }

procedure TFoo.test;
  procedure Inner(param: TBar)
  begin
  end;
begin

end;

end.

Mantis conversion info:

Mantis ID: 20038
Version: 2.7.1
Fixed in version: 3.0.0
Fixed in revision: 19641 (#7f7c665e)
Monitored by: » alexvins (Alexander Shishkin)

To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information