gfortran internal compiler error - "Please submit a full bug report" being attempted

[Gordon Sande]

Reporting the bug requires setting up my 1,070,045th user account  
somewhere
so I will use the email version as the gccbug script exists somewhere  
else.

Mac Os X 10.3.5
Dual 1.8 G5 Mac standard configuration, i.e middle model before first  
speed bump

"sudo fink install gfortran" used to install
after fixing the fink configuration files to find gfortran under  
"unstable"
and fighting with the stupid installation which did not like the Aqua  
X11
which had never before required the SDK. Somebody's attempt at being  
helpful
was a major PITA. Why would a command line compiler need X11? Either  
they
think everyone else will want it, which is not he case. Or they require  
some
piece of it as a utility, which is curious software engineering. Yes,  
fink
isn't gfortran but it is rather hard to tell them apart while the  
install
is in progress.

g5Mac:~/Cmd/gfortran gordon$ gfortran -v
Reading specs from /sw/lib/gcc/powerpc-apple-darwin7.5.0/3.5.0/specs
Configured with: ../gcc-3.5-20040815/configure --prefix=/sw  
--enable-languages=f95 --infodir=/share/info --with-gmp=/sw  
--disable-shared
Thread model: posix
gcc version 3.5.0 20040815 (experimental)

g5Mac:~/Cmd/gfortran gordon$ gfortran gfortran_bug.f90
gfortran_bug.f90: In function `initch':
gfortran_bug.f90:0: internal compiler error: in check_pointer_types_r,  
at gimplify.c:4261
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

======================================================================== 
=
module typasc
  implicit none
  integer(kind=1)::asctab(256)
end module typasc
module typchr
  implicit none
  character(len=1)::chrtab(256)
end module typchr
module programs
  implicit none
  contains
   subroutine main
    implicit none
    call initch
    stop
   end subroutine main
   subroutine initch
    use typchr
    use typasc
    implicit none
    integer::i,ia,ic
    character(len=1)::txblnk=" "
    integer::asblnk=32
    character(len=1)::text(95)=(/"  
","!",'"',"#","$","%","&","'","(",")","*","+",",","-",".","/","0","1","2 
","3","4","5", &
       
"6","7","8","9",":",";","<","=",">","?","@","A","B","C","D","E","F","G", 
"H","I","J","K","L","M","N","O","P","Q","R" &
       
,"S","T","U","V","W","X","Y","Z","[","\","]","^","_","`","a","b","c","d" 
,"e","f","g","h","i","j","k","l","m","n", &
      "o","p","q","r","s","t","u","v","w","x","y","z","{","|","}","~"/)
     
integer(kind=1)::ascii(95)=(/ 
32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55, 
56,57,58,59,60, &
       
61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84, 
85,86,87,88,89,90,91,92,93,94,95,96,97,98, &
       
99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,1 
17,118,119,120,121,122,123,124,125,126/)
    do i=1,256
      asctab(i)=asblnk
      chrtab(i)=txblnk
    end do
    do i=1,95
      ic=ascii(i)
      chrtab(ic+1)=text(i)
      ia=ichar(text(i))
      asctab(ia+1)=ascii(i)
    end do
    return
   end subroutine initch
end module programs
program acssuprs
  use programs
  implicit none
  call main
end program acssuprs
======================================================================== 
=

Gordon Sande                          Sande & Associates
(902) 443-2528                        10 Regency Park Drive #604
g.sande@worldnet.att.net              Halifax, Nova Scotia B3S 1P2