home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / chestnuts.f < prev    next >
Text File  |  1994-11-06  |  381b  |  18 lines

  1. C Famous difficult cases in Fortran syntax
  2.       INTEGER FORMAT(10),H3
  3.       DO10I=1,10
  4.       DO10I=1.10
  5.  10   CONTINUE
  6.       DOUBLE PRECISION I=1,10
  7.       DOUBLE PRECISION I=1.10
  8.       END DO
  9.  1    format(3H)=(I9/I10)
  10.  2    format(H3)=(I9/I10)
  11.       end
  12.       REALFUNCTIONF(M,N)
  13.       REALFUNCTIONF(M,N)
  14.       REALFUNCTIONF(M,N)=M+N
  15.       FUNCTIONF(M,N)=M+N
  16.       F=M+N
  17.       END
  18.