Show obsolete warnings/errors when used with unit of measure

[edgarfgp]

Description

Fixes #18181

Before

• No warnings/errors shown when using UOM marked as Obsolete

open System

[<Measure; Obsolete("Use kg2", true)>]
type kg

// Distance, meters.
[<Measure; Obsolete("Use m2")>] type m

// Time, seconds.
[<Measure; Obsolete("Use s2")>] type s

let genericSumUnits ( x : float<'u>) (y: float<'u>) = x + y

let genericSumUnits2 ( x : float<m>) (y: float<s>) = ()

let v1 = 3.1<m/s>

let v2 = 2.7<m/s>

let x1 = 1.2<m>

let t1 = 1.0<s>

[<Measure>] type m

[<Measure; Obsolete("Use s2", true)>]
type s

// Force, Newtons.
[<Measure>] type N = kg m / s^2

After

• Warnings/Errors shown when using UOM marked as Obsolete

open System

[<Measure; Obsolete("Use kg2", true)>]
type kg

// Distance, meters.
[<Measure; Obsolete("Use m2")>] type m

// Time, seconds.
[<Measure; Obsolete("Use s2")>] type s

let genericSumUnits ( x : float<'u>) (y: float<'u>) = x + y

let genericSumUnits2 ( x : float<m>) (y: float<s>) = () // raises obsolete warnings

let v1 = 3.1<m/s> // raises obsolete warnings

let v2 = 2.7<m/s> // raises obsolete warnings

let x1 = 1.2<m> // raises obsolete warnings

let t1 = 1.0<s> // raises obsolete warnings

// Force, Newtons.
[<Measure>] type N = kg m / s^2 // raises obsolete warnings

Checklist

• Test cases added
• Release notes entry updated

[github-actions]

❗ Release notes required

---

✅ Found changes and release notes in following paths:

Change path	Release notes path	Description
src/Compiler	docs/release-notes/.FSharp.Compiler.Service/9.0.200.md

[T-Gro]

Thanks Edgar for following up on the feedback!
I will re-review this soon 👍

[psfinaki]

Good stuff, good testing - thanks Edgar!