From 7f90c4e1f57caf755d4b09da4c39e78fd72037ef Mon Sep 17 00:00:00 2001
From: Isuru Fernando <isuruf@gmail.com>
Date: Wed, 25 Oct 2017 17:28:45 -0500
Subject: [PATCH] Fix getsname

---
 tools/flang2/flang2exe/exputil.c | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/tools/flang2/flang2exe/exputil.c b/tools/flang2/flang2exe/exputil.c
index d63c629d5c0..ed5f6d7eaf0 100644
--- a/tools/flang2/flang2exe/exputil.c
+++ b/tools/flang2/flang2exe/exputil.c
@@ -1107,11 +1107,7 @@ mk_impsym(int sptr)
     }
   /*****  else FALLTHRU  *****/
   default:
-#if defined(PGFTN) && defined(TARGET_WIN_X8664)
-    sprintf(bf, "__imp_%s", getsname2(sptr));
-#else
     sprintf(bf, "__imp_%s", getsname(sptr));
-#endif
   }
 
   impsym = getsymbol(bf);