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