URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { dg-do compile }
|
! { dg-do compile }
|
! This checks the fix for PR33295 in which the A_type in initA was
|
! This checks the fix for PR33295 in which the A_type in initA was
|
! not promoted to module level and so not recognised as being the
|
! not promoted to module level and so not recognised as being the
|
! same as that emanating directly from module a.
|
! same as that emanating directly from module a.
|
!
|
!
|
! Contributed by Janus Weil
|
! Contributed by Janus Weil
|
!
|
!
|
module A
|
module A
|
type A_type
|
type A_type
|
real comp
|
real comp
|
end type
|
end type
|
end module A
|
end module A
|
|
|
module B
|
module B
|
contains
|
contains
|
function initA()
|
function initA()
|
use A
|
use A
|
implicit none
|
implicit none
|
type(A_type):: initA
|
type(A_type):: initA
|
initA%comp=1.0
|
initA%comp=1.0
|
end function
|
end function
|
end module B
|
end module B
|
|
|
program C
|
program C
|
use B
|
use B
|
use A
|
use A
|
implicit none
|
implicit none
|
type(A_type):: A_var
|
type(A_type):: A_var
|
A_var = initA()
|
A_var = initA()
|
end program C
|
end program C
|
|
|
! { dg-final { cleanup-modules "A B" } }
|
! { dg-final { cleanup-modules "A B" } }
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.