URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 154 |
Rev 816 |
!This used to ICE as we chose the wrong type for the
|
!This used to ICE as we chose the wrong type for the
|
! temporary to hold type%x
|
! temporary to hold type%x
|
! fortran/18157
|
! fortran/18157
|
MODULE bug
|
MODULE bug
|
IMPLICIT NONE
|
IMPLICIT NONE
|
TYPE :: my_type
|
TYPE :: my_type
|
REAL :: x
|
REAL :: x
|
END TYPE
|
END TYPE
|
TYPE (my_type), DIMENSION(3) :: t
|
TYPE (my_type), DIMENSION(3) :: t
|
CONTAINS
|
CONTAINS
|
SUBROUTINE foo
|
SUBROUTINE foo
|
INTEGER, DIMENSION(8) :: c(3)
|
INTEGER, DIMENSION(8) :: c(3)
|
t(c)%x = t(c)%x
|
t(c)%x = t(c)%x
|
RETURN
|
RETURN
|
END SUBROUTINE foo
|
END SUBROUTINE foo
|
END MODULE bug
|
END MODULE bug
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.