← Back to branch summary

~ubuntu-branches/ubuntu/edgy/ftnchek/edgy

« back to all changes in this revision

Viewing changes to test/chestnuts.f

  • Committer: Bazaar Package Importer
  • Author(s): Mark Brown
  • Date: 2002-03-28 10:49:50 UTC
  • Revision ID: james.westby@ubuntu.com-20020328104950-kssfxlf8u0qsfelr
Tags: upstream-3.1.2
Import upstream version 3.1.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/chestnuts.f
 
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