* new tests for wrong Notes

tests/tbs/tbs0317.pp

@@ -0,0 +1,8 @@
+{ $OPT= -Sen }
+
+{ This shouldn't give a warning, because it can be used in an other program }
+var
+  exportedc : longint;cvar;public;
+begin
+  exportedc:=0;
+end.

tests/tbs/tbs0318.pp

@@ -0,0 +1,11 @@
+{ $OPT=-Sen }
+{$mode objfpc}
+uses sysutils;
+
+{ The exception is used in the raise statement, so no Note should be thrown }
+var
+  e  : exception;
+begin
+  e:=exception.create('test');
+  raise e;
+end.