program private | |
implicit none | |
real, private :: blah | |
integer, private, optional :: priv, blah | |
real :: hi | |
private :: hi | |
intrinsic hello | |
external goodbye | |
private hello | |
contains | |
subroutine hello | |
private | |
end subroutine | |
function FFF() | |
end function | |
end program private |