gcc/testsuite/gfortran.dg/save_3.f90

   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
   8 module g95bug
   9 save
  10 integer :: i=20
  11 contains
  12 pure function tell_i() result (answer)
  13   integer :: answer
  14   answer=i
  15 end function tell_i
  16 end module g95bug
  17
  18 ! { dg-final { cleanup-modules "g95bug" } }