--- bc/bc/load.c

+++ bc/bc/load.c

@@ -149,7 +149,8 @@ load_code (const char *code)

   unsigned long  label_no;

   unsigned long  vaf_name;	/* variable, array or function number. */

   unsigned long  func;

-  static program_counter save_adr;

+  /* static: functions may be split over multiple calls to load_code(). */

+  static program_counter save_adr = {-1, -1};

   /* Initialize. */

   str = code;

@@ -280,8 +281,13 @@ load_code (const char *code)

 		break;

 	      case ']':  /* A function end */

+		if (save_adr.pc_func == -1) {

+		  fprintf(stderr, "']': not in a 'F'(unction).\n");

+		  exit(1);

+		}

 		functions[load_adr.pc_func].f_defined = TRUE;

 		load_adr = save_adr;

+		save_adr.pc_func = -1;

 		break;

 	      case 'C':  /* Call a function. */