subroutine add()
end subroutine

program document_symbols1
use module_document_symbols1
implicit none
integer :: x
x = (2+3)*5
print *, x, xy
call sub()
call add()
end program
