Codebase list ohcount / upstream/4.0.0+git20210223.6654d48 test / src_dir / fortranfree.f
upstream/4.0.0+git20210223.6654d48

Tree @upstream/4.0.0+git20210223.6654d48 (Download .tar.gz)

fortranfree.f @upstream/4.0.0+git20210223.6654d48 — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
! -*- F90 -*-
!     Just a comment, whee.
      program foofree
      integer:: c

!     Many languages seem to count split lines as multiple lines,
!     so we should, too.
      write (*,*) 1 &
     & + 1

C = 1 ! Not a comment.

! And I've never seen Fortran code that wraps strings; I'm
! not even sure fixed form allows it.
      write (*,*) 'But we might as well test for it in&
                  & free format.'

end