URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [defined_type_1.f90] - Blame information for rev 695

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(:)%var = mystruct(:)%var
END Program testcase_fold

Line No.	Rev	Author	Line
1	695	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(:)%var = mystruct(:)%var`
10			`END Program testcase_fold`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [defined_type_1.f90] - Blame information for rev 695