integer function a()
implicit real (a,b,c,d)
implicit integer (e,f,g)
implicit real (h-l, r-y)
implicit complex (x-z)
implicit double precision (m-q)
end function