5 logical(1), parameter :: t1
= .TRUE
., f1
= .FALSE
.
6 logical(2), parameter :: t2
= .TRUE
., f2
= .FALSE
.
7 logical(4), parameter :: t4
= .TRUE
., f4
= .FALSE
.
8 logical(8), parameter :: t8
= .TRUE
., f8
= .FALSE
.
9 character*2 :: t(4), f(4)
20 if (any(t
.ne
. " T")) call abort
21 if (any(f
.ne
. " F")) call abort