1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do compile }
! PR fortran/107272 - followup of PR/107217 for non-numeric types
program p
print *, 2 <= [real :: (['1'])] ! { dg-error "Cannot convert" }
print *, 2 < [real :: (['1'])] ! { dg-error "Cannot convert" }
print *, 2 == [real :: (['1'])] ! { dg-error "Cannot convert" }
print *, 2 /= [real :: (['1'])] ! { dg-error "Cannot convert" }
print *, 2 >= [real :: (['1'])] ! { dg-error "Cannot convert" }
print *, 2 > [real :: (['1'])] ! { dg-error "Cannot convert" }
print *, [real :: (['1'])] >= 2 ! { dg-error "Cannot convert" }
print *, [real :: (['1'])] > 2 ! { dg-error "Cannot convert" }
print *, [real :: (['1'])] == 2 ! { dg-error "Cannot convert" }
print *, [real :: (['1'])] /= 2 ! { dg-error "Cannot convert" }
print *, [real :: (['1'])] <= 2 ! { dg-error "Cannot convert" }
print *, [real :: (['1'])] < 2 ! { dg-error "Cannot convert" }
print *, [logical :: (['1'])] .and. .true. ! { dg-error "Cannot convert" }
print *, [logical :: (['1'])] .or. .true. ! { dg-error "Cannot convert" }
print *, [logical :: (['1'])] .eqv. .true. ! { dg-error "Cannot convert" }
print *, [logical :: (['1'])] .neqv. .true. ! { dg-error "Cannot convert" }
end
|
