[flang] Update tests

Original-commit: flang-compiler/f18@aa18f1bca5
Reviewed-on: https://github.com/flang-compiler/f18/pull/557
Tree-same-pre-rewrite: false
This commit is contained in:
peter klausler 2019-07-10 15:04:51 -07:00
parent caf9e8e624
commit ef061f3e65
3 changed files with 4 additions and 4 deletions

View File

@ -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

View File

@ -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

View File

@ -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()