2 ! { dg-options "-std=legacy" }
5 ! Types were not always propagated correctly
6 logical(kind
=1) :: i
, j
7 integer(kind
=1) :: a
, b
9 if (any( (/ kind(i
.and
. j
), kind(.not
. (i
.and
. j
)), kind((a
+ b
)), &
10 kind((42_1)), kind((j
.and
. i
)), kind((.true
._1
)), &
11 kind(c
// d
), kind((c
) // d
), kind((c
//d
)) /) /= 1 )) call abort()
12 if (any( (/ len(c
// d
), len((c
) // d
), len ((c
// d
)) /) /= 2)) call abort()