rt_gccstream/gcc/testsuite/gfortran.dg/module_private_1.f90

23 lines
371 B
Fortran

! { 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
! { dg-final { cleanup-modules "bar foo" } }