1! { dg-do compile } 2 3! PR fortran/35837 4! We used do have a problem with resolving "save all" and nested namespaces. 5 6! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 7 8module g95bug 9save 10integer :: i=20 11contains 12pure function tell_i() result (answer) 13 integer :: answer 14 answer=i 15end function tell_i 16end module g95bug 17