URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

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

Details | Compare with Previous | View Log


!This used to ICE as we chose the wrong type for the
! temporary to hold type%var
! fortran/18157
program testcase_fold
  type :: struct
     real      :: var       ! its julian sec
  end type struct
  type(struct), dimension(:), pointer :: mystruct
  mystruct(1:2)%var = mystruct(2:3)%var
END Program testcase_fold

Line No.	Rev	Author	Line
1	303	jeremybenn	`!This used to ICE as we chose the wrong type for the`
2			`! temporary to hold type%var`
3			`! fortran/18157`
4			`program testcase_fold`
5			`type :: struct`
6			`real :: var ! its julian sec`
7			`end type struct`
8			`type(struct), dimension(:), pointer :: mystruct`
9			`mystruct(1:2)%var = mystruct(2:3)%var`
10			`END Program testcase_fold`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

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