[flang] Do not emit PROCEDURE(TYPE(REAL)), pgf90 cannot deal. Use PROCEDURE(REAL).

Original-commit: flang-compiler/f18@ee5f3923814b6f85262bf2dfa43371126f07305f
Reviewed-on: https://github.com/flang-compiler/f18/pull/557
Tree-same-pre-rewrite: false

diff --git a/flang/lib/parser/unparse.cc b/flang/lib/parser/unparse.cc
index 20f3fbf..0d1c311 100644 (file)
--- a/flang/lib/parser/unparse.cc
+++ b/flang/lib/parser/unparse.cc
@@ -1631,25 +1631,6 @@ public:
     Put(')'), Walk(", ", std::get<std::list<ProcAttrSpec>>(x.t), ", ");
     Put(" :: "), Walk(std::get<std::list<ProcDecl>>(x.t), ", ");
   }
-  void Unparse(const ProcInterface &x) {  // R1513
-    std::visit(
-        common::visitors{
-            [&](const DeclarationTypeSpec &d) {
-              std::visit(
-                  common::visitors{
-                      [&](const IntrinsicTypeSpec &t) {
-                        // Emit TYPE(REAL) to ensure no conflict with a symbol
-                        // REAL
-                        Word("TYPE("), Walk(t), Word(")");
-                      },
-                      [&](const auto &t) { Walk(t); },
-                  },
-                  d.u);
-            },
-            [&](const Name &n) { Walk(n); },
-        },
-        x.u);
-  }
   void Unparse(const ProcDecl &x) {  // R1515
     Walk(std::get<Name>(x.t));
     Walk(" => ", std::get<std::optional<ProcPointerInit>>(x.t));