why I cannot compile this (FPC 2.7.1)

type
  tproc_type=procedure;
  procedure xxx;
  begin
  end;
   procedure yyy;
  begin
  end;
  const
    type_list:array [0..1]of tproc_type=(@xxx,@yyy);
   const
      one_type: tproc_type=type_list[0] ;   <------- illegal expression

The reason is the same as http://bugs.freepascal.org/view.php?id=20823

Jonas