1! { dg-do compile }
2! PR 51502 - this was wrongly detected to be implicit pure.
3module m
4  integer :: i
5contains
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
14end module m
15
16! { dg-final { scan-module-absence "m" "IMPLICIT_PURE" } }
17