gcc/testsuite/gfortran.dg/g77/check0.f

   1 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