URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { dg-do compile }
|
! { dg-do compile }
|
! Tests the fix for a further regression caused by the
|
! Tests the fix for a further regression caused by the
|
! fix for PR28788 and posted as PR28908. The problem was
|
! fix for PR28788 and posted as PR28908. The problem was
|
! caused by the patch preventing interface derived types
|
! caused by the patch preventing interface derived types
|
! from associating with identical derived types in the
|
! from associating with identical derived types in the
|
! containing namespaces.
|
! containing namespaces.
|
!
|
!
|
! Contributed by HJ Lu
|
! Contributed by HJ Lu
|
!
|
!
|
module bar
|
module bar
|
implicit none
|
implicit none
|
public
|
public
|
type ESMF_Time
|
type ESMF_Time
|
integer :: DD
|
integer :: DD
|
end type
|
end type
|
end module bar
|
end module bar
|
|
|
module foo
|
module foo
|
use bar
|
use bar
|
implicit none
|
implicit none
|
private
|
private
|
type ESMF_Clock
|
type ESMF_Clock
|
type(ESMF_Time) :: CurrTime
|
type(ESMF_Time) :: CurrTime
|
end type
|
end type
|
interface operator (+)
|
interface operator (+)
|
function add (x, y)
|
function add (x, y)
|
use bar
|
use bar
|
type(ESMF_Time) :: add
|
type(ESMF_Time) :: add
|
type(ESMF_Time), intent(in) :: x
|
type(ESMF_Time), intent(in) :: x
|
type(ESMF_Time), intent(in) :: y
|
type(ESMF_Time), intent(in) :: y
|
end function add
|
end function add
|
end interface
|
end interface
|
contains
|
contains
|
subroutine ESMF_ClockAdvance(clock)
|
subroutine ESMF_ClockAdvance(clock)
|
type(ESMF_Clock), intent(inout) :: clock
|
type(ESMF_Clock), intent(inout) :: clock
|
clock%CurrTime = clock%CurrTime + clock%CurrTime
|
clock%CurrTime = clock%CurrTime + clock%CurrTime
|
end subroutine ESMF_ClockAdvance
|
end subroutine ESMF_ClockAdvance
|
end module foo
|
end module foo
|
! { dg-final { cleanup-modules "foo bar" } }
|
! { dg-final { cleanup-modules "foo bar" } }
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.