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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [check0.f] - Blame information for rev 12

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	12	jlechner	`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 scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [check0.f] - Blame information for rev 12