[Bug libfortran/32954] mask and -fdefault-integer-8

[dominiq at lps dot ens dot fr]

------- 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