23 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12implicit none3interface4 subroutine s(b)5 !dir$ ignore_tkr(tr) b6 real, value :: b7 end8 subroutine s1(b)9 !dir$ ignore_tkr(r) b10 integer, value :: b11 end12end interface13integer :: a(5), a114! forbid array to scalar with VALUE and ignore_tkr(r)15!ERROR: Array actual argument may not be associated with IGNORE_TKR(R) scalar dummy argument 'b=' with VALUE attribute16call s(a)17!ERROR: Array actual argument may not be associated with IGNORE_TKR(R) scalar dummy argument 'b=' with VALUE attribute18call s1(a)19! allow scalar to scalar with VALUE20call s(a1)21call s1(a(1))22end23