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_1.f90] - Blame information for rev 12

Details | Compare with Previous | View Log


! { dg-do compile }
! Test the fix for PR 25106 and 25055.
 
program a
0056780 continue    ! { dg-error "Too many digits" }
 
  stop 001234       ! { dg-error "Too many digits" }
end program a
 
 

Line No.	Rev	Author	Line
1	12	jlechner	`! { dg-do compile }`
2			`! Test the fix for PR 25106 and 25055.`
3
4			`program a`
5			`0056780 continue ! { dg-error "Too many digits" }`
6
7			`stop 001234 ! { dg-error "Too many digits" }`
8			`end program a`
9
10

Browse

Tools

Subversion Repositories scarts

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