25 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse %s | FileCheck %s2 3module pdt054 type base(k1,k2)5 integer(1),kind :: k16 integer(k1),kind :: k27 integer(kind(int(k1,1)+int(k2,k1))) j8 integer(kind(int(k1,1)+int(k2,kind(k2)))) k9 end type10end11 12use pdt0513type(base(2,7)) x2714type(base(8,7)) x8715print *, 'x27%j', kind(x27%j)16print *, 'x27%k', kind(x27%k)17print *, 'x87%j', kind(x87%j)18print *, 'x87%k', kind(x87%k)19end20 21!CHECK: PRINT *, "x27%j", 2_422!CHECK: PRINT *, "x27%k", 2_423!CHECK: PRINT *, "x87%j", 8_424!CHECK: PRINT *, "x87%k", 8_425