OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr33276.f90] - Blame information for rev 414

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn
! PR fortran/33276
2
! this used to crash due to an uninitialized variable in expand_iterator.
3
 
4
module foo
5
   type buffer_type
6
   integer(kind=kind(1)) :: item_end
7
   character(256) :: string
8
   end type
9
   type textfile_type
10
   type(buffer_type) :: buffer
11
   end type
12
contains
13
   function rest_of_line(self) result(res)
14
    type(textfile_type) :: self
15
     intent(inout) :: self
16
     character(128) :: res
17
     res = self%buffer%string(self%buffer%item_end+1: )
18
   end function
19
 
20
   subroutine read_intvec_ptr(v)
21
      integer(kind=kind(1)), dimension(:), pointer :: v
22
      integer(kind=kind(1)) :: dim,f,l,i
23
 
24
     if (dim>0) then; v = (/ (i, i=f,l)    /)
25
     end if
26
   end subroutine
27
end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.