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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [check0.f] - Blame information for rev 149

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


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

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [check0.f] - Blame information for rev 149