1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s 2type t(kp1,kp2) 3 integer, kind :: kp1 4 integer(kp1), kind :: kp2 = kp1 5end type 6type(t(kp1=8_8)) x 7!CHECK: 4_4, 8_4, 8_4, 8_8 8print *, kind(x%kp1), x%kp1, kind(x%kp2), x%kp2 9end 10