24 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenacc2!DEF: /m Module3module m4 !DEF: /m/t PUBLIC DerivedType5 type :: t6 !DEF: /m/t/c ALLOCATABLE ObjectEntity REAL(4)7 real, allocatable :: c(:)8 end type9contains10 !DEF: /m/sub PUBLIC (Subroutine) Subprogram11 !DEF: /m/sub/v ObjectEntity TYPE(t)12 subroutine sub (v)13 !REF: /m/t14 !REF: /m/sub/v15 type(t) :: v16!$acc host_data use_device(v%c)17 !DEF: /foo EXTERNAL (Subroutine) ProcEntity18 !REF: /m/sub/v19 !REF: /m/t/c20 call foo(v%c)21!$acc end host_data22 end subroutine23end module24