URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [check0.f] - Blame information for rev 302

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


c { dg-do compile }
c { dg-options "-std=legacy" }
c
CCC Abort fixed by:
CCC1998-04-21  Jim Wilson  <wilson@cygnus.com>
CCC
CCC        * stmt.c (check_seenlabel): When search for line number note for
CCC        warning, handle case where there is no such note.
      logical l(10)
      integer i(10)
      goto (10,20),l ! { dg-error "Selection expression in computed GOTO" "" }
      goto (10,20),i ! { dg-error "Selection expression in computed GOTO" "" }
 10   stop
 20   end

Line No.	Rev	Author	Line
1	302	jeremybenn	`c { dg-do compile }`
2			`c { dg-options "-std=legacy" }`
3			`c`
4			`CCC Abort fixed by:`
5			`CCC1998-04-21 Jim Wilson <wilson@cygnus.com>`
6			`CCC`
7			`CCC * stmt.c (check_seenlabel): When search for line number note for`
8			`CCC warning, handle case where there is no such note.`
9			`logical l(10)`
10			`integer i(10)`
11			`goto (10,20),l ! { dg-error "Selection expression in computed GOTO" "" }`
12			`goto (10,20),i ! { dg-error "Selection expression in computed GOTO" "" }`
13			`10 stop`
14			`20 end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [check0.f] - Blame information for rev 302