| ! 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 |