blob: 66bc56405b08c2ee6f7c8846a9e0c6411f83d1d8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do compile }
! { dg-options "-fmodule-private" }
module bar
implicit none
public :: i
integer :: i
end module bar
module foo
implicit none
integer :: j
end module foo
program main
use bar, only : i
use foo, only : j ! { dg-error "not found in module" }
i = 1
j = 1
print *, i, j
end program main
|