2 ! { dg-options "-Wunused-label" }
4 ! We used to give an incorect warning about label 99 not being referenced
6 99 print *,"could not open file ..."
7 98 continue ! { dg-warning "Label 98 .* defined but not used" }
8 close(unit
=12,status
="delete")