| ! { 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" } } |