integer function a()
implicit None
implicit real (a)
end function