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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [do_4.f] - Blame information for rev 720

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile }
! Verify that the loop not terminated on an action-stmt is correctly rejected
       do10i=1,20
       if(i.eq.5)then
          goto 10
 10    endif           ! { dg-error "is within another block" }
       end
! { dg-excess-errors "" }
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Verify that the loop not terminated on an action-stmt is correctly rejected`
3			`do10i=1,20`
4			`if(i.eq.5)then`
5			`goto 10`
6			`10 endif ! { dg-error "is within another block" }`
7			`end`
8			`! { dg-excess-errors "" }`
9

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [do_4.f] - Blame information for rev 720