/test/language/unclassified/test_pn1.e

http://github.com/tybor/Liberty · Specman e · 47 lines · 30 code · 10 blank · 7 comment · 1 complexity · cad3c69af638b277a22e2dd35077fafc MD5 · raw file 

    

  1. -----------------------------------------------------------------------------
    2. 

  2. note
    3. 

  3.    title       : "C Code Bug";
    4. 

  4.    cluster     : "";
    5. 

  5.    project     : "";
    6. 

  6.    copyright   : "";
    7. 

  7.    author      : "Philipp Niedermaier";
    8. 

  8.    original    : "08.12.99";
    9. 

  9.    version     : "1.0";
    10. 

  10. -----------------------------------------------------------------------------
    11. 

  11. 

  12. class TEST_PN1
    13. 

  13. -- From: "Philipp Niedermaier" <pn@cpg.de>
    14. 

  14. 

  15. create {}
    16. 

  16.    make
    17. 

  17. 

  18. -----------------------------------------------------------------------------
    19. 

  19. 

  20. feature {}
    21. 

  21. 

  22. -----------------------------------------------------------------------------
    23. 

  23. 

  24.    make
    25. 

  25.       local
    26. 

  26.          point_array:     ARRAY[AUX_PN1]
    27. 

  27.       do
    28. 

  28.          create point_array.make (0, 1)
    29. 

  29.          c_code_bug (point_array)
    30. 

  30.       end
    31. 

  31. 

  32. -----------------------------------------------------------------------------
    33. 

  33. 

  34.    c_code_bug (points_p:   ARRAY[AUX_PN1])
    35. 

  35.       local
    36. 

  36.          a:       REAL
    37. 

  37.       do
    38. 

  38.          if points_p.item (0).y < 0 then
    39. 

  39.             a := points_p.item (0).x
    40. 

  40.          elseif points_p.item (0).y < 0 then
    41. 

  41.             a := points_p.item (0).x
    42. 

  42.          end
    43. 

  43.       end -- c_code_bug
    44. 

  44. 

  45. -----------------------------------------------------------------------------
    46. 

  46. 

  47. end
    48.