calcular el valor de y por medio de programacion en fortran

program valor_de_y2
!=================
!carmona rodriguez andrea elizabeth 3Iv5
implicit none
real::x,y
write(*,*)'dame el valor de x'
read(*,*)x
if(x>=0)then
y=5*x**2+sqrt(x)
write(*,*)y,'es el valor solucion de y'
else if (-10<=x<0)then
y=24*x**3+exp(x)
write(*,*)y,'es el valor solucion de y'
else
y=exp(x)
write(*,*)y,'es el valor solucion de y'
end if
end program