hello_world.f90
View Options

			module helloWorld
			implicit none

			contains

			subroutine hello_world_cpu
			write(,) 'hello world from CPU code'
			end subroutine hello_world_cpu


			attributes(global) subroutine hello_world_cuda_threads
			integer :: tid
			tid = ...
			write(,) 'hello world from thread', tid
			end subroutine hello_world_cuda_threads
			end module helloWorld

			program testHelloWorld
			use cudafor
			use helloWorld

			implicit none

			integer :: istat

			call hello_world_cpu
			call hello_world_cuda_threads<<<4, 4>>>
			istat = cudaDeviceSynchronize()
			end program testHelloWorld

introCUDA/exercises/ex2/hello_world.f90f0cac4084480master