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
[EMAIL PROTECTED]              Halifax, Nova Scotia B3S 1P2



Reply via email to