[Bug fortran/77746] [5 Regression] Wrong subroutine called, clash of specific procedure name and binding-name

[vladimir.fuka at gmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77746

--- Comment #1 from Vladimir Fuka <vladimir.fuka at gmail dot com> ---
-fdump-tree-original

random_name ()
{

}


p_execute (integer(kind=4) & restrict i)
{
  p_execute ();
}


MAIN__ ()
{
  {
    static integer(kind=4) C.3388 = 1;

    p_execute (&C.3388);
  }
}


main (integer(kind=4) argc, character(kind=1) * * argv)
{
  static integer(kind=4) options.0[9] = {68, 1023, 0, 0, 1, 1, 0, 0, 31};

  _gfortran_set_args (argc, argv);
  _gfortran_set_options (9, &options.0[0]);
  MAIN__ ();
  return 0;
}