xref: /llvm-project/flang/test/Evaluate/fold-iostat.f90 (revision 67f15e76ebd23f659168f845f9660d3e5e9c606c) 
1! RUN: %python %S/test_folding.py %s %flang_fc1
2module m
3  use iso_fortran_env
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.])
12end
13