Commit 7e4ac85
authored
[Flang] Use specific symbol rather than generic symbol as procInterface to declare procedure pointer. (#80738)
Flang crashes when lowering the type of `p1` with the following code.
The problem is when it sets up the `procInterface`, it uses the generic
symbol `int`, not the specific `int`. This PR is to correct that.
```
INTERFACE Int
integer FUNCTION Int(arg)
integer :: arg
END FUNCTION
END INTERFACE
integer :: res
procedure(int), pointer :: p1
p1 => int
res = p1(4)
end
```1 parent 7212b4a commit 7e4ac85
1 file changed
+3
-1
lines changed| Original file line number | Diff line number | Diff line change | |
|---|---|---|---|
| |||
5648 | 5648 | | |
5649 | 5649 | | |
5650 | 5650 | | |
5651 | | - | |
| 5651 | + | |
| 5652 | + | |
| 5653 | + | |
5652 | 5654 | | |
5653 | 5655 | | |
5654 | 5656 | | |
| |||
0 commit comments