------- Comment #4 from hjl at lucon dot org 2007-07-23 16:23 -------
Here is a small testcase:
[EMAIL PROTECTED] 459.GemsFDTD]$ cat foo.f90
MODULE Readdata_mod
IMPLICIT NONE
Private
Public Parser
integer, parameter :: nkeywords = 2
character(80), PARAMETER, dimension(1:nkeywords) :: keywords = &
(/'PROBLEMSIZE ', &
'NFTRANS_TD '/)
CONTAINS
SUBROUTINE Parser(nx, ny, keyword)
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
END MODULE Readdata_mod
[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
