view gcc/testsuite/gfortran.dg/dec_logical_xor_3.f03 @ 118:fd00160c1b76

ifdef TARGET_64BIT
author mir3636
date Tue, 27 Feb 2018 15:01:35 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do compile }
! { dg-options "-std=f2003" }
!
! Test errors for logical .XOR. operator with a real standard.
!

implicit none

logical, volatile :: in1, in2, xor_out
xor_out = in1 .xor. in2 ! { dg-error ".XOR. operator" }

end