gcc/testsuite/gfortran.dg/module_private_1.f90

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