[Bug fortran/36553] New: [4.4 Regression] regression due to revision 136821

["dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

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