I will report TWO bugs
#gcc -v
Reading specs from /usr/lib/gcc-lib/i486-suse-linux/3.3/specs
Configured with: ../configure --enable-threads=posix --prefix=/usr
--with-local-prefix=/usr/local --infodir=/usr/share/info --mandir=/usr/share/man
--libdir=/usr/lib --enable-languages=c,c++,f77,objc,java,ada --disable-checking
--enable-libgcj --with-gxx-include-dir=/usr/include/g++ --with-slibdir=/lib
--with-system-zlib --enable-shared --enable-__cxa_atexit i486-suse-linux
Thread model: posix
gcc version 3.3 20030226 (prerelease) (SuSE Linux)
#Compiler
gfortran -c -v -O4 /afs/ipp/u/sgg/code/utils/src/string_vec.f90
Reading specs from
/afs/ipp-garching.mpg.de/u/sgg/gfortran/irun/bin/../lib/gcc/i686-pc-linux-gnu/4.0.0/specs
Configured with: ../gcc/configure --enable-languages=c,f95
--prefix=/usr/work/2004309/irun
Thread model: posix
gcc version 4.0.0 20041104 (experimental)
BUG #1
/afs/ipp-garching.mpg.de/u/sgg/gfortran/irun/bin/../libexec/gcc/i686-pc-linux-gnu/4.0.0/f951
/afs/ipp/u/sgg/code/utils/src/string_vec.f90 -quiet -dumpbase string_vec.f90
-mtune=pentiumpro -auxbase string_vec -O4 -version -o /tmp/ccHXhH3d.s
GNU F95 version 4.0.0 20041104 (experimental) (i686-pc-linux-gnu)
compiled by GNU C version 4.0.0 20041020 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
/afs/ipp/u/sgg/code/utils/src/string_vec.f90: In function 'set_2_str_with_v':
/afs/ipp/u/sgg/code/utils/src/string_vec.f90:11: internal compiler error: in
gfc_conv_descriptor_dtype, at fortran/trans-array.c:216
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
#Source:
!! Some of the strings ar in the Char-vector form
!! In those cases you may use size() istead of len()
module string_vec
implicit none
!private
interface set_2_str
module procedure set_2_str_with_str,&
set_2_str_with_v
end interface set_2_str
contains
!--------- set_2_str ----------------------------
! allocate a string vector and copy string in it
!
subroutine set_2_str_with_str(str_p,str)
character(len=*), intent(in) ::str ! string in
character(1), pointer:: str_p(:) ! char_vector
integer :: i
! allocate
! ---------
allocate (str_p(len_trim(str)))
! copy string to vector
!-----------------------
do i=1, size(str_p)
str_p(i)=str(i:i)
enddo
end subroutine set_2_str_with_str
subroutine set_2_str_with_v(str_p,str)
character(1), intent(in) :: str(:) ! char_vector in
character(1), pointer :: str_p(:) ! char_vector out
integer :: i
! allocate
! ---------
allocate (str_p(size(str)))
! copy string to vector
!-----------------------
do i=1, size(str_p)
str_p(i)=str(i)
enddo
end subroutine set_2_str_with_v
end module string_vec
BUG #2
gfortran -c -O4 -v ./pvm_configure_gf_bug.f90
Reading specs from
/afs/ipp-garching.mpg.de/u/sgg/gfortran/irun/bin/../lib/gcc/i686-pc-linux-gnu/4.0.0/specs
Configured with: ../gcc/configure --enable-languages=c,f95
--prefix=/usr/work/2004309/irun
Thread model: posix
gcc version 4.0.0 20041104 (experimental)
/afs/ipp-garching.mpg.de/u/sgg/gfortran/irun/bin/../libexec/gcc/i686-pc-linux-gnu/4.0.0/f951
./pvm_configure_gf_bug.f90 -quiet -dumpbase pvm_configure_gf_bug.f90
-mtune=pentiumpro -auxbase pvm_configure_gf_bug -O4 -version -o /tmp/ccWLu7WX.s
GNU F95 version 4.0.0 20041104 (experimental) (i686-pc-linux-gnu)
compiled by GNU C version 4.0.0 20041020 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
./pvm_configure_gf_bug.f90: In function 'pvm_next_cpu':
./pvm_configure_gf_bug.f90:37: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
module pvm_configure
implicit none
integer, parameter :: PVM_STRING=12
private
type :: pvm_conf
integer :: nhosts=0 !! anzahl der Hosts
type (arch_type),pointer :: arch(:)
end type pvm_conf
type arch_type
character(len=PVM_STRING) :: host_name='' !! ASCII TCP/IP-NAME
endtype arch_type
type(pvm_conf), save :: config
public pvm_next_cpu
contains
!----------------------- pvm_next_cpu ----------------------------------
subroutine pvm_next_cpu (host_id)
integer, intent (out) :: host_id
integer :: priority
integer :: i
host_id=0
priority = 0
config%nhosts=1
allocate(config%arch(config%nhosts))
end subroutine pvm_next_cpu
end module pvm_configure
Hopping you have all informations you need
Best regards
Silvio Gori
--
Summary: internal compiler error: in gfc_conv_descriptor_dtype,
at fortran/trans-array.c:216
Product: gcc
Version: 3.0.3
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: sgg at ipp dot mpg dot de
CC: gcc-bugs at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18372
