check0.f

来自「gcc-you can use this code to learn somet」· F 代码 · 共 12 行

CCC Abort fixed by:
CCC1998-04-21  Jim Wilson  <[e-mail]>
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
      goto (10,20),i
 10   stop
 20   end