File: f95deleted.f

package info (click to toggle)
ftnchek 3.3.1-7
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 8,684 kB
  • sloc: ansic: 21,908; fortran: 5,748; yacc: 4,071; sh: 3,035; makefile: 895; lisp: 322; f90: 118; perl: 76
file content (20 lines) | stat: -rw-r--r-- 439 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
C  Tests flagging of deleted features in Fortran 95
      integer i,j,label,format
      real x
      assign 5 to label
      assign 90 to format
      j = 1
 5    continue
      do 10 x=1,5
         print format,x,j*x**2
 10   continue
      j = j+1
      if( j .eq. 2 ) goto label
      i = j*2
      assign 91 to format
      write(*,format) i,j
      write(*,91) i,j
 90   format(1x,2f6.0)
 91   format(1x,2hi=,i5,3h j=,i5)
      end