subroutine fft(tab)
type fft_tab_type
complex, dimension(:), pointer :: omega
end type fft_tab_type
type(fft_tab_type), intent(in) :: tab
i = ubound(tab%omega,1)
end subroutine fft
cd /home/lei/SPEC2004/benchspec/CPU2004/459.GemsFDTD/run/00000001/
~/gcc/bin/gfortran -O0 -c bugreport.f90
bugreport.f90:0: internal compiler error: Segmentation fault
--
Summary: UBOUND causes ICE
Product: gcc
Version: 4.0.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: lei at il dot ibm dot com
CC: gcc-bugs at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=19479
