diff --git a/src/AO/ao_axis.irp.f b/src/AO/ao_axis.irp.f
index 9cfde0f..e46cbf2 100644
--- a/src/AO/ao_axis.irp.f
+++ b/src/AO/ao_axis.irp.f
@@ -45,7 +45,7 @@ subroutine pow_l(r,a,x1,x2,x3)
      x3 = 0.
      return
   end select
-end function
+end
 
 
  BEGIN_PROVIDER [ real, ao_axis_block, (ao_block_num_8) ]