39 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2program main3 interface generic4 subroutine sub1(j, k)5 integer(1) j6 integer k7 !dir$ ignore_tkr(kr) k8 end9 subroutine sub2(j, k)10 integer(2) j11 integer k12 !dir$ ignore_tkr(kr) k13 end14 subroutine sub4(j, k)15 integer(4) j16 integer k17 !dir$ ignore_tkr(kr) k18 end19 end interface20!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])38end39