program test
implicit none 
real y1,x
read*,x
y1=y(x)
print*,y1
contains
function y(x1)
real::y
real,intent(in):: x1
y=x1**2-log(x1)
end function y
end