[Bug fortran/36874] Add shape checks to cshift/eoshift

[burnus at gcc dot gnu dot org]

------- Comment #8 from burnus at gcc dot gnu dot org  2009-06-07 13:59 -------
Compile time check is now there (4.5 trunk). Missing is a run-time check.
Example:

  real, dimension(1,0) :: a, b, c
  integer :: sp(3), i
  a = 4.0
  sp = 1
  i = 1
  b = eoshift (a,sp(1:i)) ! Invalid
  end

NAG f95 writes at run time:
  Shape mismatch (dimension 1) between ARRAY and SHIFT in CSHIFT


-- 


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