program sizef
call f()
contains
    subroutine f()
    print *, size(f)
    end subroutine
end program