! Simple class -- JO 1/28/09
module m
	implicit none

	type c
	contains
		procedure :: p
	end type
contains
	subroutine p(self)
		class(c), intent(in) :: self
		print *, 'Hi'
	end subroutine
end module

program Fortran2003
	use m
	implicit none

	type(c) :: t
	call t%p
	stop
end program