1 ! RUN: %python %S/test_folding.py %s %flang_fc1
4 logical, parameter :: test_end1
= is_iostat_end(iostat_end
)
5 logical, parameter :: test_end2
= .not
. is_iostat_end(iostat_eor
)
6 logical, parameter :: test_eor1
= is_iostat_eor(iostat_eor
)
7 logical, parameter :: test_eor2
= .not
. is_iostat_eor(iostat_end
)
8 logical, parameter :: test_arr1
= &
9 all(is_iostat_end([iostat_end
, iostat_eor
]) .eqv
. [.true
., .false
.])
10 logical, parameter :: test_arr2
= &
11 all(is_iostat_eor([iostat_end
, iostat_eor
]) .eqv
. [.false
., .true
.])
