------- Comment #3 from dominiq at lps dot ens dot fr 2007-08-01 13:51 -------
The first test of PR32770, i.e.:
program main
real, dimension(2) :: a
call random_number(a)
print *,maxloc(a,mask=.true.)
end program main
with -fdefault-integer-8 and your patch, gives (PPC Darwin8):
pr32770.f90:5.16:
end program main
1
Internal Error at (1):
pr32770.f90:4.24:
print *,maxloc(a,mask=.true.)
1
Can't convert LOGICAL(8) to LOGICAL(8) at (1)
Anything wrong on my side?
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32954
