URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [widechar_3.f90] - Rev 384
Compare with Previous | Blame | View Log
! { dg-do compile }
! { dg-options "-fmax-errors=1000" }
character(kind=1,len=20) :: s1, t1
character(kind=4,len=20) :: s4, t4
print *, "" // ""
print *, "" // 4_"" ! { dg-error "Operands of string concatenation operator" }
print *, 4_"" // "" ! { dg-error "Operands of string concatenation operator" }
print *, 4_"" // 4_""
print *, s1 // ""
print *, s1 // 4_"" ! { dg-error "Operands of string concatenation operator" }
print *, s4 // "" ! { dg-error "Operands of string concatenation operator" }
print *, s4 // 4_""
print *, "" // s1
print *, 4_"" // s1 ! { dg-error "Operands of string concatenation operator" }
print *, "" // s4 ! { dg-error "Operands of string concatenation operator" }
print *, 4_"" // s4
print *, s1 // t1
print *, s1 // t4 ! { dg-error "Operands of string concatenation operator" }
print *, s4 // t1 ! { dg-error "Operands of string concatenation operator" }
print *, s4 // t4
print *, s1 .eq. ""
print *, s1 .eq. 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 .eq. "" ! { dg-error "Operands of comparison operator" }
print *, s4 .eq. 4_""
print *, s1 == ""
print *, s1 == 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 == "" ! { dg-error "Operands of comparison operator" }
print *, s4 == 4_""
print *, s1 .ne. ""
print *, s1 .ne. 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 .ne. "" ! { dg-error "Operands of comparison operator" }
print *, s4 .ne. 4_""
print *, s1 /= ""
print *, s1 /= 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 /= "" ! { dg-error "Operands of comparison operator" }
print *, s4 /= 4_""
print *, s1 .le. ""
print *, s1 .le. 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 .le. "" ! { dg-error "Operands of comparison operator" }
print *, s4 .le. 4_""
print *, s1 <= ""
print *, s1 <= 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 <= "" ! { dg-error "Operands of comparison operator" }
print *, s4 <= 4_""
print *, s1 .ge. ""
print *, s1 .ge. 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 .ge. "" ! { dg-error "Operands of comparison operator" }
print *, s4 .ge. 4_""
print *, s1 >= ""
print *, s1 >= 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 >= "" ! { dg-error "Operands of comparison operator" }
print *, s4 >= 4_""
print *, s1 .lt. ""
print *, s1 .lt. 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 .lt. "" ! { dg-error "Operands of comparison operator" }
print *, s4 .lt. 4_""
print *, s1 < ""
print *, s1 < 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 < "" ! { dg-error "Operands of comparison operator" }
print *, s4 < 4_""
print *, s1 .gt. ""
print *, s1 .gt. 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 .gt. "" ! { dg-error "Operands of comparison operator" }
print *, s4 .gt. 4_""
print *, s1 > ""
print *, s1 > 4_"" ! { dg-error "Operands of comparison operator" }
print *, s4 > "" ! { dg-error "Operands of comparison operator" }
print *, s4 > 4_""
print *, "" == ""
print *, 4_"" == "" ! { dg-error "Operands of comparison operator" }
print *, "" .eq. ""
print *, 4_"" .eq. "" ! { dg-error "Operands of comparison operator" }
print *, "" /= ""
print *, 4_"" /= "" ! { dg-error "Operands of comparison operator" }
print *, "" .ne. ""
print *, 4_"" .ne. "" ! { dg-error "Operands of comparison operator" }
print *, "" .lt. ""
print *, 4_"" .lt. "" ! { dg-error "Operands of comparison operator" }
print *, "" < ""
print *, 4_"" < "" ! { dg-error "Operands of comparison operator" }
print *, "" .le. ""
print *, 4_"" .le. "" ! { dg-error "Operands of comparison operator" }
print *, "" <= ""
print *, 4_"" <= "" ! { dg-error "Operands of comparison operator" }
print *, "" .gt. ""
print *, 4_"" .gt. "" ! { dg-error "Operands of comparison operator" }
print *, "" > ""
print *, 4_"" > "" ! { dg-error "Operands of comparison operator" }
print *, "" .ge. ""
print *, 4_"" .ge. "" ! { dg-error "Operands of comparison operator" }
print *, "" >= ""
print *, 4_"" >= "" ! { dg-error "Operands of comparison operator" }
end