<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/161223>161223</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            [flang][debug] The pointer to procedure is not supported.
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          abidh
      </td>
    </tr>
</table>

<pre>
    Consider the following program.

```
program test
  procedure(fun1), pointer:: fun_ptr

   fun_ptr => fun1
   print *, fun_ptr (3)

contains
integer function fun1 (x)
  implicit none
  integer :: x
  fun1 = x + 1
end function fun1
end program test

```

When compiled with `flang` and stopped in `GDB` at print line, shows the following:

```
(gdb) ptype fun_ptr
type = integer
```

It seems that this pointer to procedure is unhandled and a default type is being used.


</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJx0U0-Poz4M_TThYk0VTGnLgQOd_vrT3lfa4yoQA1mlSZSY-fPtV6HMzs6MVooEsf2e_WxHpWQmR9SK-izqS6EWnn1sVW_0XPRev7aP3iWjKQLPBKO31j8bN0GIforqthOyy-cgtyO7zQNMiYXsIIcOpJdIAk_j4kqBjcBHCN44piiqTlQdjIv7GTje6QDe7iCqi6j-gxW3OkI0jkFglzn-ROGpyrQrevCOlXFJyC5nmCjmuIGNdytPjn65RwOYW7BmMAzOO7pbNsxW2MtqvOOqC7yAwDPkWsjpj7yb7ZP-T90Rsvsxk4PB34KxpOHZ8AziIEer3CQOEpTTkNiHQBqMy67_L-fVwZt4axxl9Wn2z-njXHLRX3PiadK9wAYCvwb6q9frNcvaRH8t9htDIrrlNIqBZ5PeBgfs30cLJsHiZuV01pQlKNA0qsUyrElMgp7y4iyJ9LY1hW4r3VSNKqgtj3VTHvDYVMXc1nrUx3qUY7_H_XGgI6pDWTaq7qtqoONQmBYl1rLBpjyUTV3tyvG078uT7JFwHOgk9pJuytidtU-3nY9TYVJaqC0PJWJVWNWTTevSI947j5j3P7YZ8NAvUxJ7aU3i9E7Bhu36Uu6I-iLqs6Z-yb_wfaZ_dsZ5hrSE4COT3hVLtO3MHFKeFl4FXifD89LvBn8TeM35ts9DiP4XDSzwutafBF43CU8t_g4AAP__56Er6A">