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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [defined_type_2.f90] - Blame information for rev 12

Details | Compare with Previous | View Log


!This used to ICE as we chose the wrong type for the
! temporary to hold type%x
! fortran/18157
MODULE bug
 IMPLICIT NONE
 TYPE :: my_type
   REAL :: x
 END TYPE
 TYPE (my_type), DIMENSION(3) :: t
 CONTAINS
   SUBROUTINE foo
   INTEGER, DIMENSION(8)        :: c(3)
   t(c)%x = t(c)%x
   RETURN
  END SUBROUTINE foo
END MODULE bug
 

Line No.	Rev	Author	Line
1	12	jlechner	`!This used to ICE as we chose the wrong type for the`
2			`! temporary to hold type%x`
3			`! fortran/18157`
4			`MODULE bug`
5			`IMPLICIT NONE`
6			`TYPE :: my_type`
7			`REAL :: x`
8			`END TYPE`
9			`TYPE (my_type), DIMENSION(3) :: t`
10			`CONTAINS`
11			`SUBROUTINE foo`
12			`INTEGER, DIMENSION(8) :: c(3)`
13			`t(c)%x = t(c)%x`
14			`RETURN`
15			`END SUBROUTINE foo`
16			`END MODULE bug`
17

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [defined_type_2.f90] - Blame information for rev 12