Subversion Repositories openrisc

! { 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