1!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2double precision, parameter :: x = 1.0d03type t4 !CHECK: REAL :: x(1_4) = [INTEGER(4)::8_4]5 real :: x(1) = [(kind(x),j=1,1)]6end type7end8
