ocaml doesn't respect [@@@warning]

[vicuna]

Original bug ID: 7119
Reporter: @Drup
Assigned to: @alainfrisch
Status: closed (set by @xavierleroy on 2017-09-24T15:31:44Z)
Resolution: fixed
Priority: normal
Severity: minor
Fixed in version: 4.03.0+dev / +beta1
Category: ~DO NOT USE (was: OCaml general)
Monitored by: @Drup @hcarty

Bug description

This is reproducible both in 4.02.3 and trunk.

In this piece of code:

[@@@warning "-3"]
let x = String.set "a" 0 'a'

"ocamlc foo.ml" reports no warning.
"ocaml foo.ml" reports a warning.

[vicuna]

Comment author: @alainfrisch

Thanks for the report. Fixed by commit b626516 on trunk.