10 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2type t(kp1,kp2)3 integer, kind :: kp14 integer(kp1), kind :: kp2 = kp15end type6type(t(kp1=8_8)) x7!CHECK: 4_4, 8_4, 8_4, 8_88print *, kind(x%kp1), x%kp1, kind(x%kp2), x%kp29end10