gcc/testsuite/gfortran.dg/implicit_pure_2.f90

   1 ! { dg-do compile }
   2 ! PR 51502 - this was wrongly detected to be implicit pure.
   3 module m
   4   integer :: i
   5 contains
   6   subroutine foo(x)
   7     integer, intent(inout) :: x
   8     outer: block
   9       block
  10         i = 5
  11       end block
  12     end block outer
  13   end subroutine foo
  14 end module m
  15
  16 ! { dg-final { scan-module-absence "m" "IMPLICIT_PURE" } }