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