File: fortranfixed.f

package info (click to toggle)
ohcount 3.1.1-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 8,480 kB
  • sloc: ansic: 7,517; ruby: 2,363; perl: 2,065; objc: 1,325; python: 445; pascal: 398; erlang: 350; sh: 275; lisp: 272; vhdl: 150; haskell: 149; asm: 127; cs: 124; awk: 98; java: 92; php: 73; tcl: 58; xml: 57; fortran: 54; makefile: 32; modula3: 32; ada: 30; jsp: 28; sql: 18; cobol: 13; ml: 9
file content (7 lines) | stat: -rw-r--r-- 179 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
 
      PROGRAM fortranfixedcheck
!     Simple check.  Not valid free-form because of the continuation.
      WRITE(*,*)
     + 'foo'
      GOTO 22
 22   WRITE(*,*) 'bar'
      END