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

module foo
  implicit none
  != unit s :: j
  integer :: j
#ifdef PRAGMALAND
  use iso_c_binding
#endif
  != unit t :: k
  integer :: k

!! Example with a CPP ifdef
  contains
    subroutine main()
      integer :: x
      x = simple(k) + simple(1)
      x = simple(j)
    end subroutine
    function simple(x) result(i)
        integer :: x
        integer :: i
        i = x * x
        ! thest
#ifdef CAM_PROFILE
        print *, "Hello from simple"
        i = i + 0
#endif
        ! thingummy
        print *, "Hello from simple"
    end function
end module