Subversion Repositories openrisc

! { dg-do compile }

!

! Tests the fix for PR36454, where the PUBLIC declaration for

! aint and bint was rejected because the access was already set.

!

! Contributed by Thomas Orgis 

module base

        integer :: baseint

end module

module a

        use base, ONLY: aint => baseint

end module

module b

        use base, ONLY: bint => baseint

end module

module c

        use a

        use b

        private

        public :: aint, bint

end module

program user

        use c, ONLY: aint, bint

        aint = 3

        bint = 8

        write(*,*) aint

end program

! { dg-final { cleanup-modules "base a b c" } }