File: assign_6.f

package info (click to toggle)

gcc-arm-none-eabi 15%3A12.2.rel1-1

links: PTS, VCS
area: main
in suites: bookworm
size: 959,712 kB
sloc: cpp: 3,275,382; ansic: 2,061,766; ada: 840,956; f90: 208,513; makefile: 76,132; asm: 73,433; xml: 50,448; exp: 34,146; sh: 32,436; objc: 15,637; fortran: 14,012; python: 11,991; pascal: 6,787; awk: 4,779; perl: 3,054; yacc: 338; ml: 285; lex: 201; haskell: 122

file content (10 lines) | stat: -rw-r--r-- 194 bytes

parent folder | download | duplicates (6)

C { dg-do run }
C Option passed to avoid excess errors from obsolete warning
C { dg-options "-w" }
C PR22290

      integer nz
      assign 93 to nz
      go to nz,(93)
  93  continue
      end