The snippet below will not give a compile time error. But I am thinking it should since the variable "first" is not accessible through module Two. The error is caught if Use One is written after Use Two in the program.
Abhi
------
Module One
Implicit None
Private
Integer :: first = 1
Public :: first
End Module One
Module Two
Use One
Implicit None
Private
Integer :: second = 2, third = 3
Public :: second
End Module Two
Program Test_Private
Use One ! This won't give an error.
Use Two, only: first, second
!Use One ! Comment the previous and Uncomment this will give an error.
Implicit None
Print *, first
Print *, second
End Program Test_Private
