Assertion `0 == compare_tree_int(((t)->decl.size_unit), ((st)->size))'

[luiceur]

  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