(List
  (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "! Generated automatically.  DO NOT EDIT!"]]})
  (Com {[LIT_CHARS echo]})
  (Pipeline
    (Com {[LIT_CHARS perl]} {[LIT_CHARS -pe]} {[SQ <LIT_CHARS "s/([A-Z0-9_]+)=([+-]?[0-9]+)/\\n  integer\\(C_INT\\), parameter :: \\1 = \\2\\n/g">]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS fftw3.h]} <REDIR_LESS "<"> 0),
      >
    )
    (Com {[LIT_CHARS grep]} {[SQ <LIT_CHARS "integer(C_INT)">]})
  )
  (Pipeline
    (Com {[LIT_CHARS perl]} {[LIT_CHARS -pe]} {[SQ <LIT_CHARS "s/#define +([A-Z0-9_]+) +\\(([+-]?[0-9]+)U?\\)/\\n  integer\\(C_INT\\), parameter :: \\1 = \\2\\n/g">]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS fftw3.h]} <REDIR_LESS "<"> 0),
      >
    )
    (Com {[LIT_CHARS grep]} {[SQ <LIT_CHARS "integer(C_INT)">]})
  )
  (Pipeline
    (Com {[LIT_CHARS perl]} {[LIT_CHARS -pe]} {[SQ <LIT_CHARS "if (/#define +([A-Z0-9_]+) +\\(([0-9]+)U? *<< *([0-9]+)\\)/) { print \"\\n  integer\\(C_INT\\), parameter :: $1 = \",$2 << $3,\"\\n\"; }">]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS fftw3.h]} <REDIR_LESS "<"> 0),
      >
    )
    (Com {[LIT_CHARS grep]} {[SQ <LIT_CHARS "integer(C_INT)">]})
  )
  (For p [{[DQ ]}, {[DQ [LIT_CHARS f]]}, {[DQ [LIT_CHARS l]]}])
    (List
      (Com {[LIT_CHARS echo]})
      (Com {[LIT_CHARS cat]}
        <
        (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "  type, bind(C) :: fftw"][VarSub p][LIT_CHARS "_iodim\n"][LIT_CHARS "     integer(C_INT) n, is, os\n"][LIT_CHARS "  end type fftw"][VarSub p][LIT_CHARS "_iodim\n"][LIT_CHARS "  type, bind(C) :: fftw"][VarSub p][LIT_CHARS "_iodim64\n"][LIT_CHARS "     integer(C_INTPTR_T) n, is, os\n"][LIT_CHARS "  end type fftw"][VarSub p][LIT_CHARS "_iodim64\n"]]} <REDIR_DLESS "<<"> 0),
        >
      )
      (Com {[LIT_CHARS echo]})
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "  interface"]]})
      (Pipeline
        (Com {[LIT_CHARS gcc]} {[LIT_CHARS -E]} {[LIT_CHARS fftw3.h]})
        (Com {[LIT_CHARS grep]} {[DQ [LIT_CHARS fftw][VarSub p][LIT_CHARS _plan_dft]]})
        (Com {[LIT_CHARS tr]} {[SQ <LIT_CHARS ";">]} {[SQ <LIT_CHARS "\\n">]})
        (Com {[LIT_CHARS grep]} {[LIT_CHARS -v]} {[DQ [LIT_CHARS fftw][VarSub p][LIT_CHARS "_execute("]]})
        (Com {[LIT_CHARS perl]} {[LIT_CHARS genf03.pl]})
      )
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "  end interface"]]})
    )
  )
)