3 ! Types were not always propagated correctly
4 logical(kind
=1) :: i
, j
5 integer(kind
=1) :: a
, b
7 if (any( (/ kind(i
.and
. j
), kind(.not
. (i
.and
. j
)), kind((a
+ b
)), &
8 kind((42_1)), kind((j
.and
. i
)), kind((.true
._1
)), &
9 kind(c
// d
), kind((c
) // d
), kind((c
//d
)) /) /= 1 )) call abort()
10 if (any( (/ len(c
// d
), len((c
) // d
), len ((c
// d
)) /) /= 2)) call abort()