16 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2program p3 type t(k,n)4 integer, kind :: k5 integer(k), len :: n6!CHECK: warning: INTEGER(1) addition overflowed7 integer :: c = n + 1_18 end type9!CHECK: in the context: instantiation of parameterized derived type 't(k=1_4,n=127_1)'10 print *, t(1,127)()11end12 13!CHECK: PRINT *, t(k=1_4,n=127_1)(c=-128_4)14 15 16