12 lines · plain
1!RUN: not %flang_fc1 %s 2>&1 | FileCheck %s2!CHECK: error: KIND parameter expression (int(1_4/0_4,kind=8)) of intrinsic type CHARACTER did not resolve to a constant value3!CHECK: in the context: instantiation of parameterized derived type 'ty(j=1_4,k=0_4)'4!CHECK: warning: INTEGER(4) division by zero5program main6 type ty(j,k)7 integer, kind :: j, k8 character(kind=j/k) a9 end type10 type(ty(1,0)) x11end12