hello.f90

program hello

implicit none

integer :: thread_id = 0

print '("Hello World from thread ", i0)', thread_id

end program