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