At revision 136821 the following code:
!module CHECK_SEM
! Submitted by Walt Brainerd, The Fortran Company
! GNU Fortran 95 (GCC 4.1.0 20050322 (experimental))
! Windows XP
! Produces "a.exe has encountered a problem" window.
! Same problem if comments are removed so that
! the function is in a module.
! contains
function CHECK_INTEGER4_RANK1 (EXPECTED, COMPUTED)
integer(4), dimension(:), intent(in) :: EXPECTED, COMPUTED
logical :: CHECK_INTEGER4_RANK1
CHECK_INTEGER4_RANK1 = all(COMPUTED == EXPECTED)
end function CHECK_INTEGER4_RANK1
!end module CHECK_SEM
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.
print *, CHECK_INTEGER4_RANK1 (sum(mis1,dim=1,mask=ml2), (/8,5,12/))
end program array_test
gives a "Bus error". The executable runs fine if I revert the patch.
--
Summary: [4.4 Regression] regression due to revision 136821
Product: gcc
Version: 4.4.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: dominiq at lps dot ens dot fr
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36553
