1! { dg-do compile }
2! { dg-options "-Wunused-label" }
3! PR 26277
4! We used to give an incorect warning about label 99 not being referenced
5  open(unit=12,err=99)
699 print *,"could not open file ..."
798 continue ! { dg-warning "Label 98 .* defined but not used" }
8  close(unit=12,status="delete")
9end
10