1*00e0de05SPeter Klausler! RUN: %flang_fc1 -fdebug-dump-symbols %s 2>&1 | FileCheck %s 2*00e0de05SPeter Klausler! Verify initialization extension: integer with logical, logical with integer 3*00e0de05SPeter Klausler! CHECK: d (InDataStmt) size=20 offset=40: ObjectEntity type: LOGICAL(4) shape: 1_8:5_8 init:[LOGICAL(4)::transfer(-2_8,.false._4),transfer(-1_8,.false._4),.false._4,.true._4,transfer(2_8,.false._4)] 4*00e0de05SPeter Klausler! CHECK: j (InDataStmt) size=8 offset=60: ObjectEntity type: INTEGER(4) shape: 1_8:2_8 init:[INTEGER(4)::0_4,1_4] 5*00e0de05SPeter Klausler! CHECK: x, PARAMETER size=20 offset=0: ObjectEntity type: LOGICAL(4) shape: 1_8:5_8 init:[LOGICAL(4)::transfer(-2_8,.false._4),transfer(-1_8,.false._4),.false._4,.true._4,transfer(2_8,.false._4)] 6*00e0de05SPeter Klausler! CHECK: y, PARAMETER size=20 offset=20: ObjectEntity type: INTEGER(4) shape: 1_8:5_8 init:[INTEGER(4)::-2_4,-1_4,0_4,1_4,2_4] 7*00e0de05SPeter Klauslerprogram main 8*00e0de05SPeter Klausler logical, parameter :: x(5) = [ -2, -1, 0, 1, 2 ] 9*00e0de05SPeter Klausler integer, parameter :: y(5) = x 10*00e0de05SPeter Klausler logical :: d(5) 11*00e0de05SPeter Klausler integer :: j(2) 12*00e0de05SPeter Klausler data d / -2, -1, 0, 1, 2 / 13*00e0de05SPeter Klausler data j / .false., .true. / 14*00e0de05SPeter Klauslerend 15*00e0de05SPeter Klausler 16