[Bug fortran/17283] New: PACK causes runtime segmentation fault

["paul dot richard dot thomas at cea dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

$ cat bug1.f90;/irun/bin/gfortran -v bug1.f90 ; ./a.exe

program bug1
  integer*4, dimension(10) :: numbers = (/(i,i=1,10)/)
  print *, pack( numbers , MASK = ( numbers >= 5 ) )
end program bug1

Driving: /irun/bin/gfortran -v bug1.f90 -lgfortranbegin -lgfortran
Reading specs from /irun/lib/gcc/i686-pc-cygwin/3.5.0/specs
Configured with: ../gcc-3.5-20040815/configure --with-gmp=/gmp --with-mpfr=/gmp
--prefix=/irun --enable-languages=c,c++,f95
Thread model: single
gcc version 3.5.0 20040815 (experimental)
 /irun/libexec/gcc/i686-pc-cygwin/3.5.0/f951.exe bug1.f90 -quiet -dumpbase bug1.
f90 -mtune=pentiumpro -auxbase bug1 -version -o /cygdrive/c/DOCUME~1/THOMASP/LOC
ALS~1/Temp/ccQbS1Rh.s
GNU F95 version 3.5.0 20040815 (experimental) (i686-pc-cygwin)
        compiled by GNU C version 3.5.0 20040719 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
 as -o /cygdrive/c/DOCUME~1/THOMASP/LOCALS~1/Temp/ccu4nxCt.o /cygdrive/c/DOCUME~
1/THOMASP/LOCALS~1/Temp/ccQbS1Rh.s
 /irun/libexec/gcc/i686-pc-cygwin/3.5.0/collect2.exe -Bdynamic --dll-search-pref
ix=cyg /lib/crt0.o -L/irun/lib/gcc/i686-pc-cygwin/3.5.0 -L/irun/lib/gcc/i686-pc-
cygwin/3.5.0/../../.. /cygdrive/c/DOCUME~1/THOMASP/LOCALS~1/Temp/ccu4nxCt.o -lgf
ortranbegin -lgfortran -lgcc -lcygwin -luser32 -lkernel32 -ladvapi32 -lshell32 -
lgcc

Segmentation fault (core dumped)

Compiles and runs fine with F, Portland f90 and Compaq/Digital f90

-- 
           Summary: PACK causes runtime segmentation fault
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: paul dot richard dot thomas at cea dot fr
                CC: gcc-bugs at gcc dot gnu dot org,paulthomas2 at wanadoo
                    dot fr


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