URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 303 |
Rev 384 |
! PR fortran/33276
|
! PR fortran/33276
|
! this used to crash due to an uninitialized variable in expand_iterator.
|
! this used to crash due to an uninitialized variable in expand_iterator.
|
|
|
module foo
|
module foo
|
type buffer_type
|
type buffer_type
|
integer(kind=kind(1)) :: item_end
|
integer(kind=kind(1)) :: item_end
|
character(256) :: string
|
character(256) :: string
|
end type
|
end type
|
type textfile_type
|
type textfile_type
|
type(buffer_type) :: buffer
|
type(buffer_type) :: buffer
|
end type
|
end type
|
contains
|
contains
|
function rest_of_line(self) result(res)
|
function rest_of_line(self) result(res)
|
type(textfile_type) :: self
|
type(textfile_type) :: self
|
intent(inout) :: self
|
intent(inout) :: self
|
character(128) :: res
|
character(128) :: res
|
res = self%buffer%string(self%buffer%item_end+1: )
|
res = self%buffer%string(self%buffer%item_end+1: )
|
end function
|
end function
|
|
|
subroutine read_intvec_ptr(v)
|
subroutine read_intvec_ptr(v)
|
integer(kind=kind(1)), dimension(:), pointer :: v
|
integer(kind=kind(1)), dimension(:), pointer :: v
|
integer(kind=kind(1)) :: dim,f,l,i
|
integer(kind=kind(1)) :: dim,f,l,i
|
|
|
if (dim>0) then; v = (/ (i, i=f,l) /)
|
if (dim>0) then; v = (/ (i, i=f,l) /)
|
end if
|
end if
|
end subroutine
|
end subroutine
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.