* don't use pointer after free

  * ensure the test tests the right thing and not the error message on missing -Sg

compiler/pstatmnt.pas

@@ -811,9 +811,9 @@ implementation
           end
          else
           begin
+            Message1(parser_e_false_with_expr,p.resultdef.GetTypeName);
             p.free;
             p := nil;
-            Message1(parser_e_false_with_expr,p.resultdef.GetTypeName);
             { try to recover from error }
             if try_to_consume(_COMMA) then
              begin

tests/webtbf/tw40118.pp

@@ -1,3 +1,4 @@
+{ %opt=-Sg }
 { %fail }
 program helloWorld;
  label