gcc/testsuite/gm2/pim/run/pass/incsubrange.mod

   1 IMPLEMENTATION MODULE incsubrange ;
   2
   3
   4 PROCEDURE incMonth (VAR m: Month) ;
   5 BEGIN
   6    m := m + 1
   7 END incMonth ;
   8
   9
  10 PROCEDURE incMonth2 (VAR m: Month) ;
  11 BEGIN
  12    m := getMonth () + 1
  13 END incMonth2 ;
  14
  15
  16 (*
  17    getMonth -
  18 *)
  19
  20 PROCEDURE getMonth () : CARDINAL ;
  21 BEGIN
  22    RETURN 1
  23 END getMonth ;
  24
  25
  26 END incsubrange.