module testmodule
	integer :: xfromtestmodule
end module testmodule

function testfunction(A)
	integer, intent(in) :: A
	testfunction = 4;
end function testfunction

program fortrantest !<<<<< 1,1,pass

	print *, "Main program!"

contains
	integer function testfunction(A)
		integer, intent(in) :: A
		testfunction = 4;
	end function testfunction
	subroutine do_stuff
		print *,"Hi!"
	end subroutine do_stuff
end program fortrantest

subroutine do_stuff

	print *,"Hi!"

end subroutine do_stuff