Codebase list ohcount / upstream/latest test / detect_files / fortranfree.f
upstream/latest

Tree @upstream/latest (Download .tar.gz)

fortranfree.f @upstream/latestraw · history · blame

1
2
3
4
5
6
7
8
! -*- F90 -*-
program fortranfreecheck
!     Simple check.  Not valid fixed form thanks to code starting in first column.
    write(*,*) 2 + &
        & 2
    goto 22
 22   write(*,*) 'bar'
end program fortranfreecheck