URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
! { dg-do compile }
|
! { dg-do compile }
|
! Tests the fix for PR26779, where an error would occur because
|
! Tests the fix for PR26779, where an error would occur because
|
! init was detected to be public with a private type dummy argument.
|
! init was detected to be public with a private type dummy argument.
|
!
|
!
|
! Contributed by Paul Thomas
|
! Contributed by Paul Thomas
|
!
|
!
|
module test
|
module test
|
public sub
|
public sub
|
type, private :: t
|
type, private :: t
|
integer :: i
|
integer :: i
|
end type t
|
end type t
|
contains
|
contains
|
subroutine sub (arg)
|
subroutine sub (arg)
|
integer arg
|
integer arg
|
type(t) :: root
|
type(t) :: root
|
call init(root, arg)
|
call init(root, arg)
|
contains
|
contains
|
subroutine init(ir, i)
|
subroutine init(ir, i)
|
integer i
|
integer i
|
type(t) :: ir
|
type(t) :: ir
|
ir%i = i
|
ir%i = i
|
end subroutine init
|
end subroutine init
|
end subroutine sub
|
end subroutine sub
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.