libsim Versione 7.2.6
list_test.f90
1PROGRAM list_test
3IMPLICIT NONE
4
5TYPE(integerlist) :: tlist1
6
7INTEGER :: i, j, res(13)=(/50,100,40,300,30,500,20,10,1,2,3,4,5/)
8
9DO i = 1, 5
10 CALL tlist1%append(i)
11 CALL tlist1%prepend(i*10)
12ENDDO
13
14DO i = 1, 5, 2
15 IF (.NOT.tlist1%insert(i*100, i)) THEN
16 print*,'Unexpected error in insert at position ',i
17 CALL exit(1)
18 ENDIF
19ENDDO
20
21IF (tlist1%countelements() /= 13) THEN
22 print*,'Wrong list length: ',tlist1%countelements()
23 CALL exit(1)
24ENDIF
25
26CALL tlist1%rewind()
27DO WHILE(tlist1%element())
28 j = tlist1%current()
29 IF (j /= res(tlist1%currentindex())) THEN
30 print*,'Element ',tlist1%currentindex(),' has wrong value ',j
31 CALL exit(1)
32 ENDIF
33 CALL tlist1%next()
34ENDDO
35
36END PROGRAM list_test
class to use lists in fortran 2003.

Generated with Doxygen.