Télécharger la plaquette Cast3M


fr en

Télécharger test_uniq.dgibi

Retour à la liste

Numérotation des lignes : 

  1. *DGIBI        test_uniq.dgibi               2013/02/01  
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. 'OPTION' 'ECHO' 0 ;
  6.  
  7. iERR = 0 ;
  8.  
  9. 'MESSAGE' ; 'MESSAGE' 'TEST 1' ;
  10. l_i1 = 'LECT' 0 0 0 0 0 0 0 1 1 1 1 1 2 -3 ;
  11. 'LISTER' l_i1 ;
  12. l_i2 = 'UNIQ' l_i1 ;
  13. 'LISTER' l_i2 ;
  14. 'SI' ('NEG' ('DIME' l_i2) 4) ; iERR = iERR + 1 ; 'FINSI' ;
  15.  
  16. 'MESSAGE' ; 'MESSAGE' 'TEST 2' ;
  17. l_r1 = 'PROG' 0. 1. 1. 2. 2. ;
  18. 'LISTER' l_r1 ;
  19. l_r2 = 'UNIQ' l_r1 ;
  20. 'LISTER' l_r2 ;
  21. 'SI' ('NEG' ('DIME' l_r2) 3) ; iERR = iERR + 1 ; 'FINSI' ;
  22. l_r2 = 'UNIQ' l_r1 10. 'NOCA' ;
  23. * Le mot-cle NOCA est ignore (pas d'erreur) meme si mal utilise
  24. 'LISTER' l_r2 ;
  25. 'SI' ('NEG' ('DIME' l_r2) 1) ; iERR = iERR + 1 ; 'FINSI' ;
  26.  
  27. 'MESSAGE' ; 'MESSAGE' 'TEST 3' ;
  28. l_m1 = 'MOTS' 'Abcd' 'ABxd' 'aBCD' 'Abcd' ;
  29. 'LISTER' l_m1 ;
  30. l_m2 = 'UNIQ' l_m1 ;
  31. 'LISTER' l_m2 ;
  32. 'SI' ('NEG' ('DIME' l_m2) 3) ; iERR = iERR + 1 ; 'FINSI' ;
  33. l_m2 = 'UNIQ' l_m1 'NOCA' ;
  34. 'LISTER' l_m2 ;
  35. 'SI' ('NEG' ('DIME' l_m2) 2) ; iERR = iERR + 1 ; 'FINSI' ;
  36.  
  37. 'MESSAGE' ; 'MESSAGE' 'TEST 4' ;
  38. l_ra l_ma l_ia l_rb l_mb = 'UNIQ' l_r1 l_m1 l_i1 l_r2 l_m2 'NOCA' ;
  39. 'LISTER' l_ra ; 'LISTER' l_ma ; 'LISTER' l_ia ;
  40. 'LISTER' l_rb ; 'LISTER' l_mb ;
  41.  
  42. 'MESS' ; 'MESSAGE' 'iERR =' iERR ;
  43. 'SI' (iERR 'NEG' 0) ; 'ERREUR' 5 ; 'FINSI' ;
  44.  
  45. 'FIN' ;
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales