mirror of
https://github.com/capstone-engine/llvm-capstone.git
synced 2024-11-25 06:40:18 +00:00
[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:
parent
caf9e8e624
commit
ef061f3e65
@ -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
|
||||
|
@ -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
|
||||
|
@ -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()
|
||||
|
Loading…
Reference in New Issue
Block a user