Codebase list ohcount / dfcc369c-a8fa-4697-8331-c0472835aae2/main test / detect_files / fortranfree.f
dfcc369c-a8fa-4697-8331-c0472835aae2/main

Tree @dfcc369c-a8fa-4697-8331-c0472835aae2/main (Download .tar.gz)

fortranfree.f @dfcc369c-a8fa-4697-8331-c0472835aae2/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