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