1c { dg-do compile } 2c { dg-options "-O2 -std=legacy" } 3 LOGICAL(kind=1) l1 4 LOGICAL(kind=2) l2 5 LOGICAL l4 6 INTEGER(kind=1) i1 7 INTEGER(kind=2) i2 8 INTEGER i4 9 10 i1 = .TRUE. 11 i2 = .TRUE. 12 i4 = .TRUE. 13 14 i1 = .FALSE. 15 i2 = .FALSE. 16 i4 = .FALSE. 17 18 i1 = l1 19 i2 = l1 20 i4 = l1 21 22 i1 = l2 23 i2 = l2 24 i4 = l2 25 26 i1 = l4 27 i2 = l4 28 i4 = l4 29 30 l1 = i1 31 l2 = i1 32 l4 = i1 33 34 l1 = i2 35 l2 = i2 36 l4 = i2 37 38 l1 = i4 39 l2 = i4 40 l4 = i4 41 42 END 43 44