Are type-bound procedures supported yet within ifort?

[rotero]

Are type-bound procedures and classes supported yet by the ifort compiler?

This is a subset of the module I'm writting that still shows the errors I've included below. I've been trying to find my errors for some time. Is it simply something that has gone into my programming 'blind spot' or are the features not yet supported? If they aren't supported are there suggestions as to a compiler that would support them?

thank you!
Richard

module planet_class
implicit none
integer, parameter :: dbl = selected_real_kind(p=15, r=200)

type, public :: planet
private
integer :: planetID = -1
real(kind=dbl) :: gravitySurf, densitySurf, scaleHeight, radiusPlanet
contains
procedure, pass :: rho=>getDensity
procedure, pass :: p=>getPressure
end type planet

contains

real function getDensity(this, altitude)
implicit none
class(planet), intent(in) :: this
real(kind=dbl), intent(in) :: altitude
getDensity = altitude+1 ! temp equation
end function getDensity

real function getPressure(this, altitude)
implicit none
class(planet) :: this
real(kind=dbl), intent(in) :: altitude
getPressure = altitude+1 ! temp equation
end function getPressure

end module planet_class

=================================

This code generates the following errors:

fortcom: Error: test.f90, line 11: Syntax error, found ',' following statement keyword
procedure, pass :: rho=>getDensity
--------------^
fortcom: Error: test.f90, line 11: Syntax error, found 'PROCEDURE' when expecting one of: ; BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER ...
procedure, pass :: rho=>getDensity
----^
fortcom: Error: test.f90, line 12: Syntax error, found ',' following statement keyword
procedure, pass :: p=>getPressure
--------------^
fortcom: Error: test.f90, line 12: Syntax error, found 'PROCEDURE' when expecting one of: ; BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER ...
procedure, pass :: p=>getPressure
----^
fortcom: Error: test.f90, line 19: Syntax error, found ',' when expecting one of: => = . ( %
class(planet), intent(in) :: this
-------------------^
fortcom: Error: test.f90, line 19: Syntax error, found END-OF-STATEMENT when expecting one of: , )
class(planet), intent(in) :: this
---------------------------------------^
fortcom: Error: test.f90, line 26: Syntax error, found '::' when expecting one of: => = . ( %
class(planet) :: this
--------------------^
fortcom: Error: test.f90, l ine 17: This name does not have a type, and must have an explicit type. [THIS]
real function getDensity(this, altitude)
-----------------------------^
fortcom: Error: test.f90, line 27: A specification statement cannot appear in the executable section.
real(kind=dbl), intent(in) :: altitude
------^
fortcom: Error: test.f90, line 24: This name does not have a type, and must have an explicit type. [THIS]
real function getPressure(this, altitude)
------------------------------^
fortcom: Error: test.f90, line 24: This name does not have a type, and must have an explicit type. [ALTITUDE]
real function getPressure(this, altitude)
------------------------------------^
fortcom: Error: test.f90, line 26: Object is not a pointer object [CLASS]
class(planet) :: this
------^
compilation aborted for test.f90 (code 1)

[Steven_L_Intel1]

Not yet supported. Probably in the next major release, whenever that is. (At the moment, I would not venture a guess.) Procedure pointers and type-bound procedures are not commonly implemented. You could try NAG.