--- p/module.c.orig	Fri Dec 12 09:23:56 2003
+++ p/module.c	Fri Dec 12 09:39:47 2003
@@ -522,20 +522,15 @@
 finalize_module (implementation_follows)
      int implementation_follows;
 {
-  if (!implementation_follows)
+  if (co->implementation_only && co->automake_level)
+    warning ("`--automake' together with `--implementation-only' can cause problems");
+  if (!implementation_follows && !co->implementation_only)
     {
       /* Extend GPI files to contain additional information from
          the implementation part. */
       tree escan;
       int in_implementation = current_module->implementation;
-      if (co->implementation_only)
-        {
-          if (co->automake_level)
-            warning ("`--automake' together with `--implementation-only' can cause problems");
-          return;
-        }
-      if (!(in_implementation || current_module->link_files || gpc_main))
-        return;
+      if (in_implementation || current_module->link_files || gpc_main)
       for (escan = current_module->exports; escan; escan = TREE_CHAIN (escan))
         {
           FILE *s;