#include <stdio.h>
#include <stdlib.h>


$!trace-include


double
square_area(double sidelength)
{
  double	result;
  $? "+ square_area %lg", sidelength
  result = sidelength * sidelength;
  $? "- square_area %lg", result
  return result;
}


static const double	sidelengths[] = {
  1.0, 2.3, 4.5, 6.7
};


static const
size_t	sz_sidelengths = sizeof(sidelengths)/sizeof(double);

int main(int argc, char *argv[])
{
  int		exitcode	=	1;
  size_t	i;

  $!trace-init tdkct.deb
  $? "+ main"
  for (i = 0; i < sz_sidelengths; i++) {
    $? ". i = %u", (unsigned)i
    $? ". s = %lg", sidelengths[i]
    printf(
      "Length: %lg   Area: %lg\n",
      sidelengths[i],
      square_area(sidelengths[i])
    );
  }
  $? "- main %d", exitcode
  $!trace-end
  exit(exitcode);
}