| ! RUN: not bbc -emit-hlfir %s 2>&1 | FileCheck %s | |
| program main | |
| type ty0(k) | |
| integer,kind::k | |
| integer :: ii | |
| end type | |
| type ty(k,l) | |
| integer,kind::k | |
| integer,len ::l | |
| type(ty0(2)) :: cmp(1) = [ty0(2)(4)] | |
| end type | |
| type(ty(2,4)) :: obj | |
| end program | |
| ! CHECK: not yet implemented: parameterized derived types |