| ! { dg-do compile } | |
| ! PR fortran/35837 | |
| ! We used do have a problem with resolving "save all" and nested namespaces. | |
| ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
| module g95bug | |
| save | |
| integer :: i=20 | |
| contains | |
| pure function tell_i() result (answer) | |
| integer :: answer | |
| answer=i | |
| end function tell_i | |
| end module g95bug |