[Bug libfortran/19106] segfault in executable for print *,sum(a,dim=2,mask=a>0)

[Thomas dot Koenig at online dot de]

------- Additional Comments From Thomas dot Koenig at online dot de  2004-12-22 
16:55 -------
The problem seems to occur with other array
intrinsics, too.

On i686-pc-linux-gnu :

$ cat unpack2.f90
program main
  real, dimension(3) :: a, b
  logical, dimension(3) :: l
  l = (/ .false., .true., .false./)
  a = (/ 3., 2., 1./)
  b = unpack(a,l,0.)
  print *,unpack(a,l,0.)
end program main
$ gfortran unpack2.f90
$ ./a.out
Segmentation fault


-- 


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