t_bad_actual.mod 89 B

1234567
  1. MODULE TBadActual;
  2. PROCEDURE P(a : INTEGER);
  3. BEGIN
  4. END P;
  5. BEGIN
  6. P(1.5)
  7. END TBadActual.