Hi,
just a test case for the outline-algorithm:
Photran 6.0 complains of syntax error for the following line:
call save_log (ERR_MAIN_ALLOC, ierr, __LINE__, __FILE__)
Regards,
Jens Henrik
Dharmendar Reddy schrieb:
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.
_______________________________________________
photran mailing list
photran@xxxxxxxxxxx
https://dev.eclipse.org/mailman/listinfo/photran
|
