program foo
	character*20 s
	s = "ABC"
	write(*, *) s
end
