| ! { dg-do compile } | |
| ! | |
| ! Test the fix for PR86906, in which a spurious error was generated | |
| ! by 'config' in the subroutine having the same symbol name as the | |
| ! renamed 'foo_config'. | |
| ! | |
| ! Contributed by Damian Rouson <damian@sourceryinstitute.org> | |
| ! | |
| module foo | |
| type config | |
| end type | |
| end module | |
| use foo, only: foo_config => config | |
| contains | |
| subroutine cap | |
| integer config | |
| type(foo_config) extra | |
| end subroutine | |
| end |