------- Comment #5 from hjl at lucon dot org 2007-07-23 16:31 -------
A smaller testcase:
[EMAIL PROTECTED] 459.GemsFDTD]$ cat foo.f90
SUBROUTINE Parser(nx, ny, keyword)
character(80), PARAMETER, dimension(1:2) :: keywords = &
(/'PROBLEMSIZE', &
'NFTRANS_TD'/)
integer, intent(inout) :: nx, ny
character(80), intent(inout) :: keyword
select case (keyword)
case (trim(keywords(1))) ! PROBLEMSIZE
nx = 1
case (trim(keywords(2))) !'NFTRANS_TD'
ny = 1
end select
END SUBROUTINE Parser
[EMAIL PROTECTED] 459.GemsFDTD]$ ../126826/usr/bin/gfortran -O2
-ffast-math
-DSPEC_CPU_LP64 -S foo.f90
foo.f90:0: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
[EMAIL PROTECTED] 459.GemsFDTD]$
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32867
