This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/40011] Problems with -fwhole-file
- From: "dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 2 Jun 2009 12:32:18 -0000
- Subject: [Bug fortran/40011] Problems with -fwhole-file
- References: <bug-40011-12313@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- 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