1c { dg-do compile } 2c { dg-options "-O2 -std=f95" } 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. ! { dg-error "convert" } 11 i2 = .TRUE. ! { dg-error "convert" } 12 i4 = .TRUE. ! { dg-error "convert" } 13 14 i1 = .FALSE. ! { dg-error "convert" } 15 i2 = .FALSE. ! { dg-error "convert" } 16 i4 = .FALSE. ! { dg-error "convert" } 17 18 i1 = l1 ! { dg-error "convert" } 19 i2 = l1 ! { dg-error "convert" } 20 i4 = l1 ! { dg-error "convert" } 21 22 i1 = l2 ! { dg-error "convert" } 23 i2 = l2 ! { dg-error "convert" } 24 i4 = l2 ! { dg-error "convert" } 25 26 i1 = l4 ! { dg-error "convert" } 27 i2 = l4 ! { dg-error "convert" } 28 i4 = l4 ! { dg-error "convert" } 29 30 l1 = i1 ! { dg-error "convert" } 31 l2 = i1 ! { dg-error "convert" } 32 l4 = i1 ! { dg-error "convert" } 33 34 l1 = i2 ! { dg-error "convert" } 35 l2 = i2 ! { dg-error "convert" } 36 l4 = i2 ! { dg-error "convert" } 37 38 l1 = i4 ! { dg-error "convert" } 39 l2 = i4 ! { dg-error "convert" } 40 l4 = i4 ! { dg-error "convert" } 41 42 END 43 44