--- a/src/cppo_parser.mly
+++ b/src/cppo_parser.mly
@@ -252,7 +252,7 @@
   | aexpr MOD aexpr          { `Mod ($2, $1, $3) }
   | aexpr LSL aexpr          { `Lsl ($1, $3) }
   | aexpr LSR aexpr          { `Lsr ($1, $3) }
-  | aexpr ASR aexpr          { `Lsr ($1, $3) }
+  | aexpr ASR aexpr          { `Asr ($1, $3) }
   | aexpr LAND aexpr         { `Land ($1, $3) }
   | aexpr LOR aexpr          { `Lor ($1, $3) }
   | aexpr LXOR aexpr         { `Lxor ($1, $3) }