27 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Tests for ignore_tkr(p)3module ignore_tkr_4_m4interface5 subroutine s(a)6 real, pointer :: a(:)7!dir$ ignore_tkr(p) a8 end subroutine9 subroutine s1(a)10 real, allocatable :: a(:)11!dir$ ignore_tkr(p) a12 end subroutine13end interface14end module15program t16 use ignore_tkr_4_m17 real, allocatable :: x(:)18 real, pointer :: x1(:)19 call s(x)20!CHECK-NOT: error21!CHECK-NOT: warning22 call s1(x1)23!CHECK-NOT: error24!CHECK-NOT: warning25end26 27