program demo
  write(*, '(a)') "This is a simple program"
end program demo