[photran] [phortran 7.0] Problem with Code Outline

[Dharmendar Reddy <dharmareddy84@xxxxxxxxx>]

Hello,
        Outline complains of syntax error. Can this be fixed?  
Code: 
!-----------------------------
 module test
 implicit none
 type A
  integer :: data(:)
  contains
  procedure :: size => getdataSize ! Problem with this line

 end type A
 contains
 function getdataSize(this) result(datasize)
 class(A),intent(in) :: this
 datasize = size(this%data,dim=1)
 end function getdataSize
end module test
!----------------

-- 
-----------------------------------------------------
Dharmendar Reddy Palle
Graduate Student
Microelectronics Research center,
University of Texas at Austin,
10100 Burnet Road, Bldg. 160
MER 2.608F, TX 78758-4445
e-mail: dharmareddy84@xxxxxxxxx
Phone: +1-512-350-9082
United States of America.