git.oblomov.eu Git - ohcount/blob - test/src_dir/fortranfree.f

   1 ! -*- F90 -*-
   2 !     Just a comment, whee.
   3       program foofree
   4       integer:: c
   5
   6 !     Many languages seem to count split lines as multiple lines,
   7 !     so we should, too.
   8       write (*,*) 1 &
   9      & + 1
  10
  11 C = 1 ! Not a comment.
  12
  13 ! And I've never seen Fortran code that wraps strings; I'm
  14 ! not even sure fixed form allows it.
  15       write (*,*) 'But we might as well test for it in&
  16                   & free format.'
  17
  18 end