[flang] Update tests

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

diff --git a/flang/test/semantics/procinterface01.f90 b/flang/test/semantics/procinterface01.f90
index 40ec4bd..988f61e 100644 (file)
--- a/flang/test/semantics/procinterface01.f90
+++ b/flang/test/semantics/procinterface01.f90
@@ -63,10 +63,10 @@ module module1
   procedure(logical), pointer, nopass :: p3 => nested2
   !DEF: /module1/derived1/p4 NOPASS, POINTER ProcEntity LOGICAL(4)
   !DEF: /module1/nested3 PUBLIC Subprogram LOGICAL(4)
-  procedure(type(logical(kind=4))), pointer, nopass :: p4 => nested3
+  procedure(logical(kind=4)), pointer, nopass :: p4 => nested3
   !DEF: /module1/derived1/p5 NOPASS, POINTER ProcEntity COMPLEX(4)
   !DEF: /module1/nested4 PUBLIC Subprogram COMPLEX(4)
-  procedure(type(complex)), pointer, nopass :: p5 => nested4
+  procedure(complex), pointer, nopass :: p5 => nested4
   !DEF: /module1/derived1/p6 NOPASS, POINTER ProcEntity
   !REF: /module1/nested1
   ! NOTE: sin is not dumped as a DEF here because specific

diff --git a/flang/test/semantics/symbol02.f90 b/flang/test/semantics/symbol02.f90
index db2e83f..6e2d38a 100644 (file)
--- a/flang/test/semantics/symbol02.f90
+++ b/flang/test/semantics/symbol02.f90
@@ -40,7 +40,7 @@ contains
   !REF: /m/s/y
   !REF: /m/x
   y = x
-  !DEF: /m/s/s PUBLIC Subprogram
+  !DEF: /m/s/s HostAssoc
   call s
  contains
   !DEF: /m/s/s2 Subprogram

diff --git a/flang/test/semantics/symbol08.f90 b/flang/test/semantics/symbol08.f90
index 2f28879..7e226be 100644 (file)
--- a/flang/test/semantics/symbol08.f90
+++ b/flang/test/semantics/symbol08.f90
@@ -21,7 +21,7 @@ program main
  !DEF: /main/y EXTERNAL, POINTER ProcEntity REAL(4)
  pointer :: y
  !REF: /main/y
- procedure (type(real)) :: y
+ procedure (real) :: y
  !DEF: /main/z (implicit) ObjectEntity REAL(4)
  !REF: /main/y
  z = y()