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