35 lines
635 B
Fortran
35 lines
635 B
Fortran
! { 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 <thomas.orgis@awi.de>
|
|
|
|
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" } }
|