| ! { dg-do compile } | |
| ! | |
| ! PR fortran/31600 | |
| ! | |
| module a | |
| implicit none | |
| contains | |
| integer function bar() | |
| bar = 42 | |
| end function | |
| end module a | |
| use a ! { dg-error "Symbol 'bar' at \\(1\\) conflicts with symbol from module 'a'" } | |
| implicit none | |
| integer :: bar ! { dg-error "Symbol 'bar' at \\(1\\) conflicts with symbol from module 'a'" } | |
| end |