OpenCores
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] - Diff between revs 302 and 384

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.