URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [label_4.f90] - Blame information for rev 12

Details | Compare with Previous | View Log


! { dg-do compile }
! { dg-options "-Wunused-labels" }
! PR 26277
! We used to give an incorect warning about label 99 not being referenced
  open(unit=12,err=99)
99 print *,"could not open file ..."
98 continue ! { dg-warning "Label 98 .* defined but not used" }
end

Line No.	Rev	Author	Line
1	12	jlechner	`! { dg-do compile }`
2			`! { dg-options "-Wunused-labels" }`
3			`! PR 26277`
4			`! We used to give an incorect warning about label 99 not being referenced`
5			`open(unit=12,err=99)`
6			`99 print *,"could not open file ..."`
7			`98 continue ! { dg-warning "Label 98 .* defined but not used" }`
8			`end`

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [label_4.f90] - Blame information for rev 12