end_01.bmx 1.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475
  1. Rem
  2. This test checks:
  3. - if the command "end" is recognized correct
  4. - on success this sample is compileable :D
  5. - no "comparable result" as "end" ends the program :D
  6. End Rem
  7. SuperStrict
  8. Framework BRL.StandardIO
  9. 'not possible in blitzmax
  10. 'If 1=0 then end endif
  11. 'not possible in blitzmax
  12. 'If 1=0 then end end if
  13. 'possible
  14. If 1=0 End
  15. 'check for correct singleline-ending check
  16. If 1=0 End;Print"ok"
  17. 'possible
  18. If 1=0 Then End
  19. 'not possible in blitzmax -albeit ";" should connect things?
  20. 'If 1=0;end;endif
  21. 'possible - whatever this does ?
  22. If 1=0;End
  23. 'possible
  24. If 1=0
  25. End
  26. EndIf
  27. 'possible
  28. If 1=0
  29. End
  30. End If
  31. 'possible - I prefer "Wend"
  32. While 1=0
  33. End
  34. End While
  35. 'not possible in blitzmax ;D
  36. 'if end if end end
  37. 'not possible in blitzmax ;D
  38. 'if (end) if (end) end
  39. 'not possible in blitzmax ;D
  40. 'if (end) then if (end) then end
  41. 'not possible in blitzmax ;D
  42. Rem
  43. if end
  44. if end
  45. end
  46. end if
  47. end if
  48. endrem
  49. 'not possible in blitzmax
  50. 'while End
  51. ' 'do
  52. 'end While
  53. 'possible
  54. Function Call:Int();End;EndFunction
  55. 'possible
  56. Function Call2:Int();End;End Function