flang/test/Semantics/ignore_tkr02.f90

   1 ! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
   2 program main
   3   interface generic
   4     subroutine sub1(j, k)
   5       integer(1) j
   6       integer k
   7       !dir$ ignore_tkr(kr) k
   8     end
   9     subroutine sub2(j, k)
  10       integer(2) j
  11       integer k
  12       !dir$ ignore_tkr(kr) k
  13     end
  14     subroutine sub4(j, k)
  15       integer(4) j
  16       integer k
  17       !dir$ ignore_tkr(kr) k
  18     end
  19   end interface
  20 !CHECK: CALL sub1(1_1,1_1)
  21   call generic(1_1,1_1)
  22 !CHECK: CALL sub1(1_1,1_2)
  23   call generic(1_1,1_2)
  24 !CHECK: CALL sub1(1_1,[INTEGER(1)::1_1])
  25   call generic(1_1,[1_1])
  26 !CHECK: CALL sub2(1_2,1_1)
  27   call generic(1_2,1_1)
  28 !CHECK: CALL sub2(1_2,1_2)
  29   call generic(1_2,1_2)
  30 !CHECK: CALL sub2(1_2,[INTEGER(1)::1_1])
  31   call generic(1_2,[1_1])
  32 !CHECK: CALL sub4(1_4,1_1)
  33   call generic(1_4,1_1)
  34 !CHECK: CALL sub4(1_4,1_2)
  35   call generic(1_4,1_2)
  36 !CHECK: CALL sub4(1_4,[INTEGER(1)::1_1])
  37   call generic(1_4,[1_1])
  38 end