Fix incorrect arguments in a call to set_parref_flag().

In the restore_clauses() function of file semsmp.c, the first two arguments
of set_parref_flag() must be symbol table pointers, not ASTs.

Author: mleair

tools/flang1/flang1exe/semsmp.c

@@ -8329,7 +8329,7 @@ restore_clauses(void)
       if (chunk) {
         sptr = sav_chk.chunk;
         chunk = mk_id(sptr);
-      set_parref_flag(chunk, chunk, BLK_UPLEVEL_SPTR(sem.scope_level));
+      set_parref_flag(sptr, sptr, BLK_UPLEVEL_SPTR(sem.scope_level));
       }
     }
     break;