subroutine x
end subroutine

implicit none
call y
end

subroutine y
print *, "x"
end subroutine
