This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
Assertion `0 == compare_tree_int (((t)->decl.size_unit), ((st)->size))'
- From: luiceur <luiceur at gmail dot com>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Thu, 13 Dec 2007 12:08:52 +0000 (UTC)
- Subject: Assertion `0 == compare_tree_int (((t)->decl.size_unit), ((st)->size))'
PROGRAM Main
IMPLICIT NONE
! Variables
integer:: i_viv
! integer actual1(10000,10000,20)
! integer actual2(1000,2000,1000)
! integer actual3(10000,10000,100)
! integer actual4(10000,10000,100)
! integer actual5(10000,10000,100)
! integer actual6(10000,10000,100)
! integer actual7(10000,10000,100)
! integer actual8(10000,10000,100)
! integer actual9(10000,10000,100)
! integer actual10(10000,10000,100)
integer actual2(10000,10000,1000)
! integer actual2(10000,10000,24)
! integer actual3(10000,10000,24)
! integer actual4(10000,10000,24)
! integer actual5(10000,10000,24)
! integer actual6(10000,10000,24)
! integer actual7(10000,10000,24)
! integer actual8(10000,10000,24)
! integer actual9(10000,10000,24)
! integer actual10(10000,10000,24)
!##################################################################
do i_viv = 1,10000
if(i_viv.eq.1000) then
actual2(i_viv,i_viv,2)=i_viv+2
! actual4(i_viv,i_viv,i_viv)=i_viv+4
! actual6(i_viv,i_viv,i_viv)=i_viv+6
! actual8(i_viv,i_viv,i_viv)=i_viv+8
! actual10(i_viv,i_viv,i_viv)=i_viv+10
! else
! actual1(i_viv,i_viv,i_viv)=i_viv+1
! actual3(i_viv,i_viv,i_viv)=i_viv+3
! actual5(i_viv,i_viv,i_viv)=i_viv+5
! actual7(i_viv,i_viv,i_viv)=i_viv+7
! actual9(i_viv,i_viv,i_viv)=i_viv+9
endif
enddo
end