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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [check0.f] - Blame information for rev 774

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	694	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

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [check0.f] - Blame information for rev 774