[Bug fortran/40011] Problems with -fwhole-file

[dominiq at lps dot ens dot fr]

------- Comment #32 from dominiq at lps dot ens dot fr  2009-06-02 12:32 -------
I think the following code:

function CHECK_INTEGER4_RANK1 (EXPECTED, COMPUTED)
  integer(4), intent(in), dimension(:) ::  EXPECTED
  integer(4), intent(in), dimension(:) ::  COMPUTED
  logical  :: CHECK_INTEGER4_RANK1
  CHECK_INTEGER4_RANK1 = all(COMPUTED == EXPECTED)
end function CHECK_INTEGER4_RANK1
program array_test
!use CHECK_SEM
logical :: CHECK_INTEGER4_RANK1
  integer,dimension(-1:1,-1:1)      :: mis1=1.1 
  logical,dimension(-1:1,-1:1)      :: ml2=.true.
  logical :: res
  integer, dimension(3) :: theo, dat
  theo = sum(mis1,dim=1,mask=ml2)
  dat = (/8,5,12/)
  res = CHECK_INTEGER4_RANK1 (theo, dat)
end program array_test

should give an error about missing interface with -fwhole-file (it does not
with the patch in comment #28).


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40011