fortran-src-0.16.6: test-data/small.f90

module foo
  implicit none
  ! comment
  integer :: i
  #ifdef PRAGMALAND
  use iso_c_binding
#endif
contains
subroutine main()
  integer :: x
  x = simple(k) + simple(1)
  x = simple(j)
end subroutine
function simple(x) result(i)
  integer :: x
end function
end module