Codebase list ohcount / scrub-obsolete/main test / detect_files / fortranfree.f
scrub-obsolete/main

Tree @scrub-obsolete/main (Download .tar.gz)

fortranfree.f @scrub-obsolete/mainraw · 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