llvm/flang/test/Semantics/pdt02.f90

! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
program p
  type t(k,n)
    integer, kind :: k
    integer(k), len :: n
!CHECK: warning: INTEGER(1) addition overflowed
    integer :: c = n + 1_1
  end type
!CHECK: in the context: instantiation of parameterized derived type 't(k=1_4,n=127_1)'
  print *, t(1,127)()
end

!CHECK:  PRINT *, t(k=1_4,n=127_1)(c=-128_4)