[Bug middle-end/43793] [4.6 Regression] tree check: expected tree that contains ‘decl minimal’ structure, have ‘indirect_ref’ in gfc_trans_array_bound_check

[jv244 at cam dot ac dot uk]

------- Comment #1 from jv244 at cam dot ac dot uk  2010-04-19 07:52 -------
small enough for pasting:

> cat bug.f90
MODULE fft_tools
  INTEGER, PARAMETER :: sp=4, dp=8
  INTEGER, PARAMETER :: lp = dp
CONTAINS
  SUBROUTINE sparse_alltoall ( rs, scount, sreq, rq, rcount, rreq, group )
    COMPLEX(KIND=lp), DIMENSION(:, :), &
      POINTER                                :: rs
    COMPLEX(KIND=lp), DIMENSION(:, :), &
      POINTER                                :: rq
    IF ( rcount(pos) /= 0 ) THEN
       rq(1:rcount(pos),pos) = rs(1:rcount(pos),pos)
    END IF
  END SUBROUTINE sparse_alltoall
END MODULE fft_tools


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43793